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02/04/82 10:05:35 Disk Pack Formatter 


4 title 'Disk Pack Formatter',; 
4 index, 
/* 


SSHPSSSSSSLEPHSHSHSSSSSHESSSSISLSDSHSHHSSHSSHSFSSSHSHSSSSSSSSSEDLSSSSSS 
SELSDSSHSRSESSSSESEDHSHSSSSESSSSSSFSSSPSSSSSESSSSSSSHSHS SESS SSS SSSS. 


$4 $$ 
$5 $S 
$4 PROPRIETARY TRADE SECRET INFORMATION $F 
$4 $$ 
$S TO BE USED ONLY UNDER LICENSE FROM DTSS INCORPORATED, $4 
$4 $F 
$4 $F 
$4 UNPUBLISHED COPYRIGHTED WORK OF DTSS INCORPORATED. $$ 
$$ $$ 
$s $$ 


SHSSHSDLSSHHHSFSLSSSHSSDSSLFLLSHSHSHSSSSLSSHSSSSFSSSSSBSLELSSSSES SE SHSHS 
HESHSHSHSSSSHDSHSSESSFTSSSSSSSSESHSHDSSSSSSSSSSSSSESSSSSESSSSES ESL SESTS 


THE RELEASE DATE OF THIS VERSION OF packfmt IS: 

15 July 81 
PLEASE INCLUDE THIS DATE IN ALL CORRESPONDENCE WITH 
DTSS INCORPORATED CONCERNING THIS VERSION OF packfmt 


See Document 1372 for instructions. 


Points of interest: 
Document 1372 has instructions. 
Honeywell EPS#*=1 DSC181/D0SC190 Controller (rev. B) 434232230 has detai 


Look at the section describing the ATT (Alternate Track Table). That 
basic data structure. 


oe 


1s our 


Look at the section describing the Track Header. That 18 the hardware on 


which we operate. 


Indications are that MSU501 disks are best handled by a different program. 


There is almost no resemblance between our formatting and theirs. 


If you're not sure about thingss get a spare pack & play around with 


Things to Dos: 


it. 
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This program uses several insert files and library routines. when an 
official software library is set up it should be changed to reference that. 
Look for comments with *****, 


Allow PackFmt to format allocated devices (save it with more trap bits). 
Make it ask the user whether it really means to mess with the file system. 
Allow only nonedestructive commands, ALTERNATEs and perhaps TI. Don't allow 
TEST,» FORMATs REFORMAT. 


Think about MSU501s. 


Things Not to Do: 


Call me if there*s any problem. 


Thought: 


Since Roe and Shakow (1942) have shown that a variety of mental conditions may impair the 
repitition of digits forwards the question may be raised whether "attention" rather than 
retention is the determining factor in this performance. The results with auditory digit 
span backwards on the contrarys indicate that the performance is darticularly impaired 

in general paresiss chronic alcoholism with psychosiss hebephrenic and unclassified 
dementia praecox. These latter findings would indicate a closer relationship Detween the 
difficulties with auditory digit span backward and mental disease. 


Digits forward (Correct in 1 of 2 trials) Digits backward (Correct in 1 of 2 trials) 
¢ good averages 6 low averages 5 marginal 5 averages 4 marginal 


Kuhlmann 1939, Terman and Meritl 1937-7, Wechsler 19417 Peatman and Locke 1934 


ee Wells and Ruesch. Mental Examiner's Handbook, 
New York: The Psychological Corporations 1972 
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89 4% pages 

90 

91 

92 %’ Library 'noprom.b's [eee eee] 

93 

94 PackfFmt:iproc options (mainsnoPagesnoClear); 

95 

96 % include ‘literals’; [ek ee ee / 

1 “4Declare and Literally ‘&'; 

*Declare or literally ‘I',; 

3 ADeclare not literally '"7',; 

4 declare false literally ***O**b1': 

5 ~Declare true Literally ‘(not false)';s 

6 *Declare boolean Literally ‘bit (1) aligned'; 

7 *Declare indefinitely literally ‘while (true), 

97 ADeclare elif Literally ‘else if'-; 

98 aDeclare result Literally ‘parameter’, 

99 
100 del PerCatFrn fixed, /* FRN for PERCAT Copened in Init) */ 
1014 PerCat int file constant, /* PERCATs opened */ 
103 del SysIn ext file constant, 4x default input source */ 
104 SysPrint ext file constant; /* default output destination */ 
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MAIN 02/04/82 10:05:35 Disk Pack Formatter PAGE 4 


Exec Calls 


105 % subtitle ‘Exec Calls’, 

106 

107 /x* Issues a MME and checks that the status 1s zero */ 

108 

109 MMEDOSs proc (MsR); 

110 dcl M fixed parameter, /« MME number */ 

11711 R (12) result parameter, /x registers */ 

112 

113 call MMECM,R(*))- /* issue */ 

114 if CSARCRC11)418) & 777b3) ~= O00b3 /* check exec status */ 
115 then call ErrExit(SubStr(Octal(M),7,6) 1/1 status "IlOctal(R(11)))- 
116 

117 end MMEU, 
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PIO #= Definitions 


118 % subtitle "PIO == Definitions'; 

119 

120 /* This is the format of a DCW for drives with O0CWs. The MBZ fields are filled 
121 in by the Exec"s PIO routines. 

122 The DCWs described here are only those used from slave mode for the drive. 
t2s They are described in TM059. A description of hardware DCWs is in TMO66. */ 

124 

125 del 1 DCW based, 

126 2 Offset unsigned (18), /* slave memory address */ 

127 2 MBZ pit (4), 

128 2 Action bit (2), /x action (see pelow) */ 

129 2 Count unsigned (12), /* record count */ 

130 

131 /« definitions of action codes */ 

132 x Bel 2Protd. Lot *2O0**s *y /x 1/0 transfer & disconnect */ 

133 tSroto Lit * 8 "O1"*b. % /* 1/0 transfer & proceed */ 

134 iStdew Lit * **10"*b *»s /* transfer to DCW (not Legal from slave mode) */ 
135 Veronte: Dae © SATs as /* 1/0 nontransfer & proceed */ 

136 

137 /* This is the structure of the status returned by the EXEC on a drive with DCWs. 
138 It can be found in Pub.1059 */ 

139 

140 del 1 PIOStatus unaligned based, 

141 2 Acc bit (9)» 

142 2 Exec bit (9), /* EXEC status return */ 

143 2 CSti, /* channel status word 1 */ 

144 3 Sync bit, /*x indicates status came from 10M «/ 
145 Se one eat bit, /* device was offline */ 

146 3 Major unsigned (4), /* device major status */ 

147 3 Minor bit (6), /* device minor status */ 

148 3 aAdd unsigned (6), /* queue address (EXEC simulated) */ 
149 2 DCWNo bit (36); /* number of bad DCW on failure */ 
150 
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02/04/82 10:05:35 Disk Pack Formatter PAGE 
PIO == Track Header 
4 subtitle "PIO ** Track Header'; 
/* This is the structure of a track headers as used by the READ TRACK HEADER 
and FORMAT TRACK commands. More details are in EPS#1 "DSS191 and D0SS190 
Removable Media Disk Storage Subsystems” */ 
del 1 TH unaligned, 
2 HA unaligned, /x home address of this sector */ 
3 Cyl unsigned (16), /* cylinder numder */ 
3 Ha unsigned (16), /* head number */ 
3 54H bite /* rewrite HA only on 088190 (format only) */ 
StL bits /* header bypass: ignore current HA (format only) 
cs bit (2), /* Track Indicator (status of track) 
2 ROCount unaligned, /* record zero count field */ 
3 MBZO0 bit (4), 
3 Flag unaligned, /* flag field */ 
4 A bit», /x alternate format (should be zero) 
4 ABZ bit (5), 
4 TI bit (2), /* record zero TI bits */ 
3 Cyl unsigned (16), /* cylinder numnder */ 
3 Hd unsigned (16), /*x head numoer */ 
3 Rec unsigned (3), /* record numder */ 
3 MBZ1 bit (2), 
3 ChkChr bit (6), /x check character (format only) 
3 MBLe bit (12), 
2 ROData unaligned, /* record zero data field */ 
3 MBZ bit (4), 
3 Data bit (64), /* data */ 
3 182 bit (4),7 /* is zero (fill) «/ 
/* Jefinitions of TI settings */ 
i. Gel, I SGP> Lae FOG" 8b ty /* primary tracks good */ 
fide Wes Se ae be as Oe as oe /x alternate tracks good */ 
TI$SBA Lit * **10''b ', /* defective tracks alternate assigned */ 
PP SBM Lag DOR sey /* defective tracks no alternate assigned */ 


/* an i/0 descriptor for the above */ 


del 1 THDCW Like OCW unaligneds THDCW = LOTD(CWAddr( TH) -Wlen(TH))2/* set up DCW */ 


/* convert the HA Cheader address) to a standard form (CCC/HH) */ 


HANames proc returns (char(6)), 


return (TrackName(Track((TH.HA.Cyl),-(THZHA.HG))))F/* just fix it up for someone else */ 


end HAName,s 
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1oTD: 


10:05:35 


4 subtitle 


/* these are for 


/* the format 


/* these are single action drives (no DCWs) */ 


cl d$read 
dSwrite 
dtrhead 


Disk Pack Formatter PAGE 7 


hPL OD 


d$form 

dtformGP 
d$formGa 
d$formBa 
d$formpn 


dtrecov 
dinorcy 


/* makes a DCW. 


both in fixed form. */ 
proc (AsL) returns (1 like DCW unaligned), 
dcl A fixed parameter, /* address of ouffer */ 
L fixed parameter, /x length of buffer *«/ 
del 1 Like DCW unaligned, /* make a DCW here */ 
D.Offset = Az /* address */ 
dD.MB2Z sek oo} /* make zero */ 
D.Action = iS$iotd-s /* 1/0 transfer §& disconnect *«/ 
DeCount = Le /* length *«/ 
return (D)- 
end IOTD, 


Lit 
bat 
Lit 


Lit 
Lit 
Lit 
Lit 
Lit 


cat 
Lit 


Call this with the word address of the buffer and the word length, 


PIO =« 


*400000b3', 
*600000b3', 
*420000b3', 


"430000b3' 
*430000b3' 
"431000b3' 
"435200053." 
'433000b3' 


°14000063', 
*7150000b3°; 


Drive Modes 
Drive Modes'; 


data transfer operationss, called DrivewWithDCws *«/ 


track drive has the form 43X000 where XO0O0O = TI*19000 *«/ 


o 
? 
4 
? 
4 


/* read */ 
/* write */ 
/* read track header */ 


/* the basic format command */ 
/* good primary */ 


/* alternate */ 
/* bad alternated */ 
/* alternateless */ 


/x enable EXEC error recovery */ 
/*« disable EXEc error recovery */ 
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PIO: 


10:05:35 Disk Pack Formatter 
PIO #= Drive with OCWs 


4 subtitle *PIO == Drive with DCWs’,; 


PAGE 


/* Do a drive with OCWs. This is the slave interface into the EXEC's PIO 
(Physical 1/0) routines. This drive must be done on a device file. The action 
1s specified by a code known as ISMODEs after a symbol tin the EXEC. The ISMODES 
are mapped into device commands by the EXEC. 
This procedure takes a device filers opened as a PL1 files a mode code, and 


a single DCW. It returns a PioStatus. */ 


proc(FilesMode,D) returns (1 Like PioStatus unaligned), 


del File file parameter, 
Mode fixed parameter, 
1 D Like DCW unaligned, 

& dcl mmeSDrive lit '500232b3', 


% list offs % include ‘regs's % list on- 


del 1 S like PioStatus unaligned; 


XO = Frn(File), 

X1 = WAddr(D); 

X4 = O07 

X6 = O- 

X7 = 1, 

RA = 24000000b3 + Mode + 1, 


call MMECmmeS$drives-Regs)-, 
String(S) = UnSpec(Sws)-; 


return (S);3 


end PIO-s 


/~* 
/* 
/* 


/* 


file to do it to */ 
ISMODE */ 
the DCW *«/ 


for funny I10 */ 


[xk aweaxe] 


/* 


/* 


/* 


/* 
/1* 
/* 
/* 


/* 


/* 


status return */ 


FRN of device file */ 
DCw */ 

no flags */ 

use BI trap */ 

number of dcws */ 

mode and record count */ 


Issue DWDCW */ 


return status */ 
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10:05:35 Disk Pack Formatter PAGE 


PIO *= Drive with DCWs 


pages 


This calls PIO and checks the status. If it looks bad it is printed in octal 
and ErrExit is taken, */ 


(ModesD)s 


del Mode fixed parameter, /* the type of drive */ 
1 D Like DCW parameter unaligned, /* the (single) DCw */ 
del 1 S like PioStatus unaligned, /* the status */ 


S = PIO(Pack.~FilesModes,D); 


1f S.wExec = 00063 or S.~Exec = 001b3 or S.Exec = 400b3 or S.Exec = 420b3 


then do- /* acceptable EXEC status */ 
if not S.Off and S.Major = 0 
then return, /* ok PIO status */ 

end: 


call Errexit('PIO status 'IllOctal(FixedBin(SubStr(Strinyg($).1-36))))¢ 


end PIO0OU0; 
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PackCheck: 


10305-235 Disk Pack Formatter PAGE 10 
Pack == Attributes 
~% Subtitle 'Pack «= Attributes'-s 
/* This structure is similar to a FCB. It contains what we know about our pack. 
The Label is not part of this structures but 15 available as TrackO. 
If we have no pack then Pack.~File=NullF(). 
Since we are Interested in only one packs the members of tnis structure are 


usually referred to without full qualification, To make things simpler, 
certain invariants are literal constants, */ 


dcl 1 Packs /* data associated with the particular pack */ 

2 File file variable, /* the PL1 file */ 
2 Loc fixed, /* current *logical* address */ 

2 HasATT boolean, /* true iff ATT is good */ 
2 Name, /* pack name */ 

3 Prefix char (6), /* PERCAT prefix */ 

3 Suffix char (2), /* PERCAT suffix */ 
2 Shape, /* various dimensions */ 

3 LogRecs fixed, /* number of physical records to a logical */ 
3 UseCyls fixed, /* number of user cylinders */ 

3 Cyls fixed, /* sum, total number of cylinders */ 

3 Ranye fixed; /* number of logical records */ 


/* the following dimensions are constant */ 


4 dcl RecSize Lit *64', /x* words/record «/ 
Sectors Lit '40'", /* sectors/track */ 
Heads Lit 19°, /* heads/cylinder */ 
AltCyls lit '3', /* alternate cylinders */ 
TOCyls Lit "1%, /* T & D cylinder */ 


/*« make sure that there is a current pack */ 


procs if Pack.eFile = NullF() then call Err&Exit(€'no pack.')+ end PackCheck; 
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GetPack: 


Fails 
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10:05:35 Disk Pack Formatter 


Pack ** Open 


subtitle 'Pack == Open'; 


This procedure opens a device file in :PERCAT as the current drive. The 
argument should be a string with the pack name. This name should look like 


a default pack name created during reconfiguration. (See SW326s Environment 


Deck.) The pnysical type name (prefix) must be one of those known to this 
program. 


Any previously opened pack is closed. The named pack is opened. If it cannot 
be opened with RWA Erré€xit(stwl) is taken. Otherwise the Pack data is set up, 


based on the physical type name. Executive error recovery is disabled and 
the file pointer is set to O. */ 


ogroc(NameStr)- 


dcl NameStr char var parameter, /* the name given */ 
dct FCB int file constants /* a place to open files */ 
Name char (8) vars /* pack name */ 
I fixed, /* jndex into the types table */ 


/* close any pack which was open */ 

call DropPacks /* thus */ 
/* check the name for length & make it handy */ 

if Length (NameStr) < 2 or Length(NameStr) > 8 


then call ErrExit('name should be 2#8 characters"); 
else Name = NameStr; /* get into a handier form */ 


/* Open tne pack in :PERCAT (which is already open) with RWA. We print our 


Own message in case of failure. */ 


begins /* error recovery block */ 
on undefinedfile(€FCB) go to Fail, /* we decide what's failure */ 
open file (FCB) /* ooen this FC3 *«/ 
title (Name) /* with the supolied name */ 
env (catfrn (PerCatFrn) [x in :PERCAT */ 
unformatted /* not your average file */ 
access (007000b3)); /* (RWA in the vulgar) *#/ 
end, /* leave quietly on failure */ 


1f CStW1CFCBIZO00777000000b3) ~= 8b 
then call ErréExit('tcan''t open ‘IIlNamell'-s status ‘IllOctal (Stw1CFCB))); 
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Analyze the name and determine the physical device type */ 


10503250 Disk Pack Formatter 
Pack *=* Open 
& page, 
/* 
Pack.Suf fix 


Pa 


do I = 1 to HBound(Types1) while (Type(l).Name” =Pack.Prefix); 


/* 


if 


ck.Prefix 


SubStr(Names,Length(Name)*1-2)2/* suffix 
SubStr(Nameslr-Length (Name)=2)7/* prefix 


1s Last 2 
before «*/ 


If the pack was of a known type then set its characteristics. 
up. By this devious means we hope to enforce standardization of names. Also 
set other attributes of the pack */ 


I > HBound(Type,1) 


then call ErrE€xit(Pack.Prefixll' 


Pa 
Pa 


Pack.eUseCyls 
Pack.Cyls 


Pa 


/* 


a 


/ 


ck.eFile = FCB; 
ck.e.Logkecs LogRecs(I)-, 
UseCyls(I)-, 


ck.Range 


Also determine the code to be used in the ATT (see below) 
1s that when 451s were 


alternate track. My guess 


Pack.UseCyls + AltCyls + TDCylss/* 
Pack.Cyls * Heads 


/* not found? 


xf 


is not a valid device tyoe.')-; 


/* accept this pack */ 


/* records/logical 


/* user cylinders */ 


number of 


letters */ 


end; 


If not, 


records */ 


total cylinders */ 
* Sectors / Pack.elLogRecss/* 


cylinder numbers (>=512) became legals it was too late to fix the old 


ring(FreeTrk) = FreeCode(I)-, 


Disable EXEC error recovery on the pack & set 


call Drive(Pack.File,zd$norcv)-, 


Ca 
Pa 
if 
if 


LL FileP (0), 
ck HasATT = falses 


not Pack.HasATT then put 


Line 


/* set up table marker 


ey 


the file pointer to O. 


/* get into a Known state */ 


/* assume nothing */ 
ReadTrack0O() then if GoodlLabel() then if GoodATT() then Pack.sHasATT = 


C('unlabelled pack')s/* 


k2ep op 


informed 


then give 


to mark a free 
introduced and negative 


ONneS. 


«/ 


trues 
x / 


*f 


PAGE 


oe 


Logical records 


«/ 
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MAIN 02/04/82 10:05:35 Disk Pack Formatter PAGE 13 


Pack ** Types 


402 % subtitle 'Pack ** Types’; 

403 

404 /* This is a table of the physical characteristics of all physical pack types 

405 known to this program. */ 

406 

407 del 1 Type(2) static structure, /* known pack types */ 

408 2 Name char (6) init ¢ /* physical tyoe name */ 

409 "D191", /* DOSS 190Bs also called DSS 191 */ 

410 *M451'), /* MSU 4651 */ 

411 2 LogRecs fixed init ¢ /* physical records per logical record */ 
412 2p /* 2 physical record per DSS191 record */ 
413 4), /« 4 i “ " —MSU451 ” */ 
414 2 UseCyls fixed init ¢ /* cylinders per pack */ 

415 4U7» /* 497 cylinders per DSS191 pack */ 

416 811), /* 811 6 " —MSU451 =" «/ 

417 2 FreeCode bit (18) init ¢ /* code to mark free ATT entry */ 

418 *400000'b3, /* for DSS191 pack */ 

419 TTT Cols /* for MSU451 Ccyl. 512 is legal) */ 

420 

421 end GetPack, 
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Pack == Close 


} 422 A subtitle "Pack ** Close’; 
| 423 
424 /* This procedure closes the pack if there is one. Before doing SOs» Executive 
| 425. error recovery is res#enabled. */ 
, 426 
427 DropPacks procs 
428 
429 if Pack.File “= NullF) 
430. then do, /* only if there*s something */ 
431 call Drive(Pack.Files-dS$recov)-, /* enable error recovery */ 
432 close file (Pack.File); /* detach */ 
433 Pack.File = NullF), /* mark as closed */ 
434 end; 
435 
436 end DropPack-, 
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02/04/82 


Drives. 


10:05:35 
1/0 == 


% subtitle "I/0 -= Drive’; 


4 dcl mmes$drive lit '500132b3'; 
/* This procedure 
The status 1s checked, 
(File,Code); 
dcl Code fixed parameter, 


File file parameter, 


proc 


% list offs %4£ include ‘regs’; 


XO = Frn (File), 

Xx4 = Q,- 

X6 = Q- 

RA = 1200000063 + Code, 
call MMEOCmmeSdrive-sRegs); 


end Drive, 


Disk Pack Formatter 


Drive 


issues a single*action drive ona device file. 
Call with the drive code (see above) */ 


PAGE 15 


/* MME DRIVE */ 


/* action code */ 
/« file to drive it on «/ 


% List ons [week eee / 


/* FRN to drive */ 
/* no flags */ 


/* action code */ 
/* do it right */ 


eeeeeeeoeeee8ee0e80 8@ 280 @ 0 8@ @ @ 8 
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| e MAIN 02/04/82 10:05:35 Disk Pack Formatter PAGE 16 ® 
1/0 == Set Pointer 
e 458 % subtitle 'I1/0 == Set Pointer'; e 
: 459 
@ 460 /* This procedure is used because I'm not sure what the PL1 RESET statement does. e 
| 4614 This issues a SET POINTER on the files which works for drives as well as COPY type 
462 MMEsS. */ 
® 463 @ 
464 % dcl mmesSsetp lit '500213b3'- /* set file pointer */ 
| 465 
& 466 FilePs. proc (Loc), e@ 
467 del Loc fixed parameter, /* loc to set to */ 
| 468 
h j f; % 3 i 5, &Z Lis: ; kak kkk 
) ya List off include ‘regs list on [xx / e 
| 471 XJ = Frn(Pack.File), /* on the file */ 
= 5 * * 
) 472 X6 = / BI trap / lox @ 
| 473 RA = Locs /* pointer setting */ 
: 474 
@ re call MMEQ(Cmme$setp-Regs): /* SET PTR */ @ 
| 477 Pack.eLoc = Locs /* succesSSs remember that */ 
478 
sd 479 end FileP- e 
480 
| 481 /* converts <cylindersheadssector> to seek address for the current pack */ & 
©@ 482 
| 483 SeekAd: proc (CsH»S) returns (fixed); 
| 484 del (C, /* cylinder */ 
e 485 Hp /* head */ e 
486 S)fixed parameter, /* sector */ 
| @ 487 € 
488 if C “«< Cyls or H “< Heads or S$ “< Sectors then call ErrExit(C'invalid address'), 
489 
@ 490 return ((((C * Heads) + H) /* convert to heads */ @ 
494 *« Sectors) + S)s/* then sectors (much easier in APL) */ 
: 492 end SeekAd, 
e 493 e 
494 /* converts <CylindersHeadsSector> to DTSS record number */ 
| 495 
, & 496 FiledAd: proc (€CrH-S) returns (fixed); r 
497 dcl (CrHsS) fixed, /*« as above *«/ 
i 498 
499 del L fixed; /* record # */ 
: e 500 od 
| 501 L = SeekAd(CsHsS)- /* first convert to sector count */ 
, e 902 if Mod(L-LogRecs) “= 0 € 
| 503 then call Erré€xit('not aligned on a logical record'), 
| 504 else return (L/LogRecs), /* convert to logical record number */ 
| 505 
| e 506 end FileAd; e 
@ e@ 
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Drops 


Break? 


10303:35 Disk Pack Formatter PAGE 17 
String Functions 
4 subtitle "String Functions',- 


/* Drop: drops an initial segment off a string. The first argument is the string 
to shorten. The second is the index of the first character to leave. If this 
is zero then nothing is left. This is most useful tn combination with one 
of the builtin functionss, such as: 


call Drop(S,Verify(Ss' '))- 
This removes any leading spaces from the string S. */ 


proc (SeI)-> 
del S char var parameter, /x the string to decapitate */ 
I fixed parameter, /* first index to leave */ 
if I = 0 then S = ''; else S = SubStr(S/l)s/* thus */ 
end Drop, 


/* Break: breaks off an initial segment of a string. The first argument is the 
string to break.. The second argument is the index of the first character to 
leave. If this is zero then nothing is left. The substring broken off is 
returned as the result. This is useful in combination with builtin string 
functions. e.g. 


A = Break(S8-Verify(8-"0123456789'))-; 
This removes the leading digits from string 8B and assigns them to A. 
A = Break(Bs,Index(Bs's')); 
This assigns A the substring of & before the first semicolon in 6B. 
This substring is removed from Bs, which now begins with the semicolon. 
If there was no semicolon then A is assigned all of B and 3 18 aSSigned the 


empty string. */ 


proc (SaI) returns (char var)-s 


dcl S char var parameter, /* the original */ 
I fixed Qarameter, /* where to break */ 
R char var, /* the result */ 
if I = 0 /* if there's nothing to leave */ 
then dor R = Ss § = '',; end, /* then take all «/ 
else dos R = SubStr(Se1-1=1)7 S = SudStr(Se1l)7 ends /* otherwise take before I */ 
return (R)- /x deliver */ 


end Breaks 
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Uppers. 


ACI: 


BCT 


10:05:35 Disk Pack Formatter PAGE 
Conversions 
% subtitle ‘'Conversions'; 


/* Upper: returns its argument with all lowercase letters converted to 
uppercase. */ 


proc (L) returns (char var); 


del L char var parameter, /x* the mixed case string */ 


return (Translate(L,'ABCDEFGHIJKLMNOPQRSTUVWXYZ', 'abcdefghijklmnopqrstuvwxyz')),. 
end Upper, 


/* converts 36 bits of BCD to six characters of ASCII. */ 


proc(3) returns (char(6))- 
del B bit(€36) parameter, /* six BCD characters */ 


del ASCIICQO:77b3) char static init /* BCD*ASCII map */ 


CU gf A at po EE 9 Fe G6 GO Tt So Se 
Lt ot et potas s oS yg Oe oe »,9*A%,'B*,'C'» 
Hg Eo Eg (Ce Roe Le eS eo et ed een OTS 
We Ee RO et KT I te MIN 9" 0% oP se 
QO DER gets Tt et oto Se et 48 ‘Jt, 
Sst, tT tsp tuto tv i ot Wi oe Xx ot ty ts, tz! Ye eae 
a ee 
del C¢€0:5) unsigned (6), /* bits as characters */ 
AC0:5) char, /* characters */ 
I fixed, 
String(C) = B-; /* break bits into characters */ 
do I = 0 to 5s ACI) = ASCIICC(CI))+¢ end, /x translate thrugh the table *«/ 
return (String (A)), /* glomm back into string */ 


end ACI, 


/* converts a six*character string into its 36*bit BCD representation. Both 
uppercase and lowercase are acceptable. */ 


proc(S) returns (bit (36))- 
del S char (6) parameter, 


del BCD(40b3:137b3) unsigned (6) static init/* ASCII*3CD nap */ 
(20b3477b3-76b3213b3453b3474b3432eb3e57D3» 
355345553 75403760b34,73bn35052b03455b376103- 
00b3701b3-02b3,036b3,0463,055635,06b3,0703, 
10b3411b3,15b3,56b3,36b3,75b3,16b3,17b3, 
T4b3e21b3 220342303 ,24b3,25b3 02603 ,27b3, 
30b3731b3741b3 74263 4643b3244b3-45b03446b3, 
47b3-50b3-51b3262b63463b63264b3-65b3-66b3,- 
67b3-70b3-71b3.12b3-37b3434b03-40b3,72b3); 


del I fixeds /* character index */ 
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02/04/82 10:05:35 Disk Pack Formatter PAGE 19 
Converstons 


C fixed, /* character code */ 
3¢1:6) unsigned (6); /* accumulator for result */ 


do I = 1 to 6, 
C = Byte(S,I)-s if C >= 140b3 then C = C#040b37/* get the character code (Cuppercased) */ 


BCI) = BCDC). /* move into result */ 

end; 
return (String(B)), /* convert to bits */ 

end BCI, 
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BDates: 


ADate?: 


10:05:35 Disk Pack Formatter 


Conversions *=* Dates 


% subtitle 'Conversions == Dates's 
/* packed date (Cin MMDDYY form) */ 


proc returns (bit(36)),- 
del 71 D unals 2¢(M char(2)4_1 char, 
String(D) = Date(); 
return (BCICD.MIID.DIID.Y))- 

end BDateys 


/* convert 3CD date to ASCII formatted 


proc (8) returns (char(8)), 
deci B bit (36) parameter, 
dcl A char (6), 


if 8B = (36)'1'b 
then return (C'€never)'); 
else do, 

A = ACI(B); 


D char(2),_2 chars Y char(2))4/* date structure 


date 


« / 


/* 
/* 


/*x 
/~*« 


/* 
/* 
/* 
/* 


get ait from the OS */ 
return relevant portions */ 


BCD date */ 
a place to stuff ASCII */ 


is this special */ 
so it is */ 

ordinary BCD date */ 
convert first */ 


return (SubStr(A-te2. 11 J *biSubStr(A,3e,2) 11"/*biSubStr(As5e2))7/%* slash up */ 


end; 
end ADate,- 


PAGE 
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Conversions «= Addresses 


€ € 

@ @ 

e 635 &% subtitle "Conversions ** Addresses’, e 
636 

@ 637 /* MakeAddress: converts its argument into a disk address with ) 
638 <Cylinder-HeadsSector>. This can be given in three forms: 
639 CCC/HH/SS where CCC is the cylinder numbers HH the head (surface) 

® 640 and SS the sector. The numbers are in decimal. & 
641 CCC/HH Same as aboves with a sector of O assumed. This is a 
642 track address. 

e@ 643 000000000000 up to twelve octal digits» a seek address. @ 
644 
645 The cylinders heads and sector numbers are the three result parameters. 

r 646 @ 
647 This procedure returns true if successful. No error messayes are printed. */ 
648 

e 649 (CconversionsstringSize): @ 
650 MakeAddress:proc (Str-CyleHds-Sect) returns (boolean); 
651 del Str char var parameter, /* string to convert */ 

& 652 Cyl fixed result parameter, /* cylinder numnder result */ e 
653 Hd fixed result parameter, /* head number result */ 
654 Sect fixed result parameter, /* sector number result */ 

) 655 Seek fixed, /* seek addresss if given */ @ 
656 $1 fixed, /x index of first slash */ 
657 $2 fixed, /* index of second slash */ 
658 

sd 659 on conversion go to Fails /* be careful «/ e 
660 
661 S1 = Index (Stre'/'); /* look for a slash */ 

ad 662 if Si = 0 e 
663 then do- /* no slashs is seek address */ 

& 664 get edit (Seek) (b3(Length(Str))) string (Strds/* read as octal */ e@ 
665 Cyt = Seek / (Heads * Sectors); /* convert to cylinder */ 
6566 Hd = Mod(SeeksHeads * Sectors) / Sectorss/* wy head */ 

@ 667 Sect = Mod(Seek,Sectors),; /* g sector */ r 
668 end, 
669 else do, /x* must be giver as CCC/HHE/SS] *«/ 

@ 670 Cyl = FixedBin(SubStr(Stre-t-Si91))- /* evaluate CCC */ eS 
671 S2 = Index (Stre-'/',S14+1)- /* look for second slash */ 
672 if S2 = 0 /* another / */ 

e 673 then dos /x* nose must be CCC/HH */ e 
674 Hd = FixedBin(SubStr(StraSit1))-/* head */ 
675 Sect = QO, /* assume sector 0 */ 
676 ends 

e O77 else do, «x CCC/HH/SS *x/ ® 
678 Hd = FixedBin(SubStr(StreSit+1-S2"7Siaol))7/* head */ 

r) 679 Sect = FixedBin(SubStr(StrsS2+1))7/*% sector */ é 
680 ends end; 
681 

® 682 if O<=Cyl&Cyl<Cyls and O<=Hd&Hd<Heads and O<=Sect&Sect<Sectors/* check ranges */ 2 
683 then return (true); /* successful */ 
684 Fails: return (false); /* failed */ 

e 685 end MakeAddress, e 

e e 


' 
| 
i 
i 
| 
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; 
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€ e@ 
e MAIN 02/04/82 102053355 Disk Pack Formatter PAGE 22 e 
Format Pack = Track Q 

6 686 4 subtitle 'Format Pack ** Track O*,; e 
687 

@ 688 /* Track 0 on a pack is reserved for system information. Record O has a pack @ 
689 label, record 3 has the AlternateTrackTable.~ Records 1 & 2 are used by GCOS 
690 for something. Don't ask */ 

@ 694 @ 
692 del 1 TrackO(0:3) unal, /x we'll point into this structure */ 
693 2 Rec(U:RecSize=#1) char (4); 

S 694 @ 
695 del 1 TrackOUDCW Like DCW unaligneds TrackODCw = IOTD(CWAddr(TrackO),Wlen(TrackO))-/* a DCW for this */ 
696 
697 /* initialize all such data to zero, */ 

ad 698 ® 
699 ClearTrackO:rprocs UnSpec(TrackO) = ‘''bhs end ClearTrackO-, 

e 700 € 
701 /* read the track from off the pack without changing the current location. 
702 returns true iff it read. */ 
703 

e 704 ReadTrackO: proc returns (d00lean); e 
705 del PLoc fixed, /* saved previous locus */ 

@ 706 + 3S like PIOStatus unaligned, /* device status */ @ 
707 
708 PLoc = Pack.lLocs /* save pointer */ 

e 709 call FileP(0)-, /x set up for seek */ @ 
710 S = PIO(CPack.Files,d$reads-TrackODCw), /* & read it */ 
771 call FileP(Ploc),. /* reset pointer */ 

e 712 if S.Exec = 000b3 or S.wExec = 001b3 or S.Exec = 40063 or S.Exec = 420b3 € 
ge then return ((Cnot S.Off) and (S.Major = 0))-/* check PIO status */ 
714 else signal error, /* bad exec status */ 
715 end ReadTrackO;- 

Ad 716 e 
717 /* write Cupdated) track O back onto the pack without altering current pointer. */ 
718 

sd 719 WriteTrackOsproc,s e 
720 dcl PLoc fixed; /* saved pointer */ 
721 

sd 22 Floc = Pack.Loc- /* save state */ i 
(23 call FileP(0)- /* aim it at record O.. */ 

e 724 call PIOO(Cd$writes,TrackODCw),; /* and do the 0 */ e 
7295 call FileP(PLoc), /* reset */ 
726 

e fer end writeTrackO-, ) 

® @ 

@ 

@ e 


e © 


77S RARE ET TE FE ET Re TE EM ETN TN Ee Te Le a a ee NE Te I «MLS PSS TO 2 EPO: RO OPTS SCD SM A AAD, RPE PY 2 SO: EI, NR AS, AR. AG NI AR SR A: EE A LA <A A A A: SS: ORD MR A SN SI A SD ART 


MAIN 02/04/82 


746 GoodLlabels: 


754 NewLabels: 


765 ReLabels: 
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10:05:35 Disk Pack Formatter PAGE 23 e 
Format Pack == Label 
4 subtitle ‘Format Pack ** Label’; e 
/* This is the format of a GCOS pack labels, as described in "System Startup and @ 
Operation”. All fields are in BCD. */ 
dcl 1 Label based (Addr(Track0(0))) unals~ /* label begins on record 0 */ ) 
2 Begin bit (36), /x "He6000" */ 
2 Site bit (36), /* site name */ 
2 Numb bit (36), /* pack number */ @ 
2 Name bit (72), /* " DISC*PACK “ «*/ 
2 Type bit (36), /* "STRUCT" or "NSTRUC" */ 
2 Misc fixed, /* miscellaneous bits */ ) 
2 IDate bit (36), /* initialization date */ 
2 RDate bit (36), /* retention date */ 
2 SeqNo bit (36); /* sequence numoer */ @ 
/* see if a label is acceptable. */ 
proc returns (ooolean),; @ 
return (ACI (Label.Begin) = 'H=6000' /« must start thus */ 
and ACI (Label.Type) = "STRUCT' /* we want type STRUCT */ & 
and Lapel.eMisc = 204000000000b3); /* with STRUCT and ATT attributes */ 
end GoodLabels 
/* jnitialize a label for the current pack. */ e 
procs @ 
Label.Begin = BCI('H=#6000')-; /* start of label */ 
Label.Site = BCIC'DTSS ga ae /* site name */ @ 
Label.Name = BCIC' DISC**)ITIBCIC*PACK ")-/* vack name *«/ 
Label.Type = BCIC'STRUCT"')-; /* pack type */ 
Label.Misc = 204000000000b3 ; /* structured with ATT «/ ) 
end NewLabel-s 
/* Update the label & put back track 0 */ @ 
proces 
Label.Numb = BCIC'OQOOO'TIIPack. Suffix), /* record where initialized */ S 
Label.IDate = BDate(); /* initialized today */ 
Label.RDate = BCICTIHbib byt); /* never destroy */ ) 
Label.SeqNo = BCICT Hilti l ); /* no sequence rumbers «/ 
call WriteTrack0O, /* put it sack on the pack */ 
Pack.eHasATT = true, /* it has an ATT now *«/ r 
end Relabel,- ; 
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Tracks: 


TrackName: 


TrackAd: 


10:05:35 Disk Pack Formatter PAGE 
Format Pack #= Alternate Track Table 
% subtitle "Format Pack «= Alternate Track Table’; 
/* Track codes are 18 bits» 10 bits for the cylinder number and 8 for the head 
(surface) number. FreeTrk is not the code of any actual track. The value 
used depends on. the type of pack. */ 

del 1 TrackCode unaligned based structures /* prototype */ 

2 Cyl unsigned (10), /* cylinder numbder */ 

2 Hd unsigned (8)- /* head (surface) number */ 


/* Track: constructs a track code from the cylinder & head nunbers */ 


proc(Cyl,Hd) returns (1 Like TrackCode unaliyned),s 


dcl Cyl fixed parameter, /* cylinder numoer */ 
Hd fixed parameter, /* head (surface) number «/ 
1 T Like TrackCode unaligned-s /* result */ 

TeCyl = Cyls TaHd = Hd; /x fill at in «/ 

return (T)- /x deliver */ 


end Track- 
/* convert a track code to text for output */ 


proc (T) returns (char (6)), 
del 1 T Like TrackCode unaligned parameter-s/* track code (see above) */ 
del 1 N static unals, 2¢CCO pic "999", § char init C'/*)s HH pic "99 )F/* picture */ 
NeCCC = TeCylse NLHH = T.Hd- /* make a picture */ 
return (String(N))- /* string it */ 
end TrackName, 


/* Convert a logical record number (e.g. Pack.eLoc) into a track code */ 


proc(€Loc) returns (1 Like TrackCode unaligned), 


dcl Loc fixed parameter, /* the logical address */ 

T fixed, /x* the absolute track number */ 
T = (Loc*LoygRecs) /Sectors-s /* get the track number */ 
return (Track(T/HeadssMod(Ts»~Heads)))-, /* deliver a code */ 


end TrackAd- 
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Format Pack »=* Alternate Track Table 


812 4% pages 
813 
814 /* A software record of bad tracks and their alternates is keot on record 3. 
; 815 This has one entry for each track in the alternate track areas 3x19=57 
! 816 tracks. Each entry is one word. The lower half has the code for the alternate 
| 817 track. The upper half has the code for the bad track to which this is 
| 818 alternate, or FreeTrk if this alternate is unused. Bad tracks in the 
! 819 alternate area are recorded as being selfealternate. 
820 This format was not my idea. It is used by RSIP. */ 
821 
822 del 1 ATTCOsAlLtCyls*Heads#1) based (Addr(Track0(3)))-/* the ATT */ 
823 2 Trk like TrackCode unaligned, /* bad track */ 
824 2 Alt Like TrackCode unaligned, /* its alternate */ 
%25 
826 /* This is a special code for an unused table entry (CATTCA).Trk). The value used 
827 depends on the pack type. See the Pack procedure for details. */ 
828 
B29 del 1 FreeTrk Like TrackCode unaligned, /* kept here */ 
830 
83) /* ClearATT: sets up an empty alternate track table. */ 
| 832 
833 ClearAaATT: procs 
834 del Cyl fixed, /* alternate cylinder number */ 
835 Hd fixed, /* alternate head number (some of us have several) */ 
| 836 A fixeds /* index into ATT */ 
| 837 A = LBound(ATT,1)3 /* start of table */ 
838 do Cyl = UseCyls to UseCylstAltCyls1- /* run through the alternate cylinders */ 
839 do Hd = 0 to Heads, /* run through the heads */ 
840 ATTCA).Trk = FreeTrks ATTCA).ALt = Track(Cyls-Hd)s/* make an empty */ 
3841 A = Atl, /* progress */ 
842 ends end; 
343 end ClearATT,; /* cleared */ 


© 
e 
@ 
& 
e 
@ 
® 
e 
® 
6 
© 
e 
e 
® 
@ 
e 
e 
e 
e 
e 


e@ € 


; —pYRSTTS p : R CRR R ART (BE Z A  E  R S ATA i R eePTR  nR  ETT  :RP A PP cE - P e NY  A AA EE A EAA: N07 PN PY srr PPE cE POE A Pt LAP PN PAAR re A PRP RE: E:T A A ARR ANTE AP 


MAIN 


02/04/82 


DumpaATT: 


GoodATT: 


ATTChecks: 


10:05:35 Disk Pack Formatter PAGE 26 
Format Pack ** Alternate Track Table 
% pages 


/* DumpATT: Lists the alternate track table, printing tracks in the standard 
format. */ 


proc; 
del A faxed, /* jindex into ATT */ 
E boolean, /* true if there are no bad tracks */ 
put skip /x title */ 
Line ('pad tracks Calternates)'"); 
—E = true; /* nothing seen yet */ 
do A = LBoundC(CATTs1) to HBound(ATTs,1)- /* run through the array */ 
if StringCATTCA).Trk) "= String(FreeTrk)/* is this space occupied ? *«/ 
then do; /* found a bad track */ 
—E = false-s /* table is not empty */ 
if String(ATT(A).Trk) ~= String(ATTCA).ALt)/* is this selfealt? */ 
then put List (TrackName(CATT(CA).Trk) FTI * Cf VI TrackName(ATTCAD.ALt) Td 8) ')- 
else put list (TrackName(ATT(A).~Trk))e 
ends 
end; 
If E then put List ('{none)'"), /* don't puzzle the op */ 
put skip- 


end DumpATT, 


/* GoodATT: checks the ATT*s format. This check should catch nost garbage 


ATTs. */ 
proc returns (boolean), 
del Cyl fixed, /* current cylinder number */ 
Hd fixed, /* current head number */ 
A fixed, /* index into ATT */ 
A = LBound(ATT,1)- /* start table check */ 
do Cyl = UseCyls to UseCylstAltCyls#i- /*« check cylinders */ 
do Hd = 0 to Headse#1,; /* check heads */ 
if ATTCA).ALt.Cyl "= Cyl or ATTCA).ZALtL.Hd “= Hd/* is it OK? */ 
then return (false); /* break out with bad news */ 
A = Atl; /* next entry */ 
ends end, 
return (true); /* made it through the check */ 


end GoodATT,s 
/* call this iff about to use the ATT */ 
procs 


if not Pack.HasATT then call ErrExit('there is no Alternate Track Table')-, 
end ATTCheck-; 
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02/04/82 10:05:35 Disk Pack Formatter PAGE 27 
Format Pack = Alternate Track Table 
h pager 
/* AddATT: adds a track (specified by a track code) to the list of bad tracks in 


the ATT. A message 18 printed if the entry is a duplicate. ErrExit is called 
if the table overflows. */ 


AddATT?: proc(T)-, 

del 1 T like TrackCode unaligned parameters/* track code */ 
A fixed; /x index into ATT */ 

if T.Cyl < UseCyls /* is this a data track */ 

then do- /* yes */ 
if SearchATT(T-/A) /* aif the track is in the ATT */ 
then dos call Dupt(T)s returns end; /* then don*t add it again */ 
call AddUse(T), /* not theres add it */ 

ends 

else if T.Cyl < UseCylstAltCyls then call AddAlt(T)s¢/* remove from alternates */ 

else signal error, /‘* T&D or other *«/ 


/x AddUse: adds another. data track to the table. We find a free alternate 
(the entry is <0) and give it the track. */ 


AdduUse: proc(T); 
dcl 1 T like TrackCode unaligned parameters/* bad track */ 
A fixed; /* index into the track table *«/ 
if SearchATT(FreeTrksA) /* Look for a free track */ 
then ATTCA).Trk = Te /* and fill ait in */ 


else call Erré€xit('too many bad tracks');s/* if there were no free slots */ 
end AdduUse- 


/* AddAlt: add atrack in the alternate track area to the table. This involves 
finding another alternate for the track to which this is alternate. */ 


AddAlts proc(T), 
del 1 T like TrackCode unaligned parameters/* bad track */ 
A fixed; /* corresponding index of ATT */ 
A = (T.CyleUseCyls) *HeadstT.Hd; /* figure offset in table */ 
if String(ATT(CA).Trk) “= String(FreeTrk)/* is this place used? */ 
then do, /* yes */ 
if StringCATTCA).Trk) = String(T) /* is that us? */ 
then dos call Dupl(T)- end; /x that‘*s a duplicate */ 
else call AddUseC(ATT(A).Trk), /* otherwise find the occupant a new home */ 
ends 
ATTCA).Trk = ATTCA).ALts /* make it selfealternate */ 


end AddAlt-, 


/x* Dupl: prints a message about duplicate entries. No unusual exit is taken. */ 


Dupls: proc(T); 
del 1 T Like TrackCode unaligned parameters/* bad track */ 
call Error(TrackName(T)II* is already Listed')s/* that's all */ 
end Dupl-; 
end AddATT;z 
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02/04/82 10505235 Disk Pack Formatter PAGE 
Format Pack #* Alternate Track Table 
/* This searches the table for a track. Iff found it returns TRUE and leaves the 
index in the second argument. It can e used to search for free alternates. */ 


SearchaATT: proc(TrksFind) returns (Cboolean); 
del 1 Trk like TrackCode unaligned parameters/* to search for */ 


Find fixed result parameter, /x Index where found */ 
“Dee 8 like TrackCode unal, /* local copy of track */ 
A fixed; 
T = Trk- /* get a handier copy of the track code */ 
do A = LBound(ATTs»1) to HBound(ATT.1)32 /* scan */ 
if StringCATTCA).Trk) = Stringl(T) /* find it? */ 
then do; /* found it ? */ 
Find = Az /* note where */ 
return (true), /* note that */ 
ends 
end, 
return (false); /* not found */ 


end SearchaATT-s 
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AskOps. 


10:05:35 Disk Pack Formatter 
Format Pack = Ask User 


4 subtitle ‘Format Pack #* Ask User'; 


PAGE 


/* Ask the operator to name any additional bad tracks. Tracks are named in the 


the usual format. The list of tracks 1s ended 


proce, 
del Line char var, /* 
Cyl fixed, /* 
Hd fixed, /* 
Sect fixed; /* 


/* Ask the operator (the user) for the names 
to do so until (s)he enters an empty line 


Line = Prompt('track? '); /* 
do while (Length(Line)>0)- /* 
if MakeAddress(Line,~Cyl-HdsSect) /* 
then dos /* 

if 0 > Cyl or Cyl “< UseCylstAltCyls 


by an empty Line. */ 


line from the operator */ 

cylinder numder from the operator */ 
head x/ 
sector xf 


of additional bad tracks. Continue 
«/ 


get a line */ 

until empty line */ 
attempt conversion */ 

if it succeeds... */ 

or 0 > Hd or Hd “~< Heads 


then call Error ('track out of range');s 


else call AddATT(Track({Cyls~Hd))- /* 
ends 


add to list */ 


else call Error('incorrect format for track. Try CCC/HH'); 


Line = Prompt('track? ‘>; /* 
end; 


end AskOp- 


get the next Line */ 
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Formats: 


10:05:35 Disk Pack Formatter 


PAGE 30 


Format Pack #™ Write Track Headers 


% subtitle "Format Pack == Write Track Headers'; 


/x* This procedure formats all user tracks as primary tracks good. All alternate 
tracks are formatted as alternate tracks good. T&D cylinders are formatted 
as good. This is the only place we touch them, 

BEWARE: this *destroys* all information on the pack. */ 


procs 
dcl(C, 
H) fixed, 
S fixed, 
D fixed, 
String(TH) = **b; 
D = Sectors/LogRecs,s 
S = 0. 


THLHA.TI, TH.ROCount.~ TI = TISGP, 
do C = 0 to UseCylse#1; 
do H = 0 to Headse=1, 
THAHA.CylsTH.ROCount.Cyl = 
THLHALHds TH.ROCount.Hd = 
call FileP(S), 
call PIOOCdS$formGP,THDCW), 
S = S+D, 
end, end, 


THAHALTI-TH.ROCount.TI = TISGA, 


go C = UseCyls to UseCylstAltCyls#17 


do H = 0 to Heads#1, 
THLHALCylsTHe.ROCount. Cyl 
THEHAZHds TH.ROCount.Hd 
call FileP(S)- 
call PIOOCdSformGA,-THDCW)- 
S = S+D, 


ends ends 


THOHALTI-TH.ROCount. TI = TISGP,s 
do C = UseCylstAltCyls to Cylse1, 
do H = 0 to Heads#1; 

THLHA.Cyl»~TH.ROCount. Cyl 
THLHALHds TH.ROCount.HG 
call FileP(S); 
call PIOOCdS$formGP eT HDCW); 
S = S+D- 

ends, end, 

end Format, 


oa 


/* 
/* 
/* 
/* 


/* 
/* 
/* 


/* 
/* 


/* 
/* 


[* 
/* 


/* 
/* 
/* 
/* 


/* 
/*x 


/* 
/* 
/* 
/* 


/* 
/* 


cylinder nunber */ 

head number */ 

current file pointer */ 
file pointer increment */ 


zero out the trackheader */ 
file pointer increment for next track */ 
start with O */ 


format as good primary */ 
format user cylinders */ 


fill in track header for this track */ 
set up seek */ 


format */ 
next file pointer *«/ 


format as good alternate */ 
format alternate tracks */ 
fill in header «*/ 

set up seek */ 


format */ 
next */ 


format T&D as good */ 
rest 71s T&D */ 

fill ain header «*/ 

set up seek */ 


format */ 
next */ 
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ReForinat: 


POs05 235 Disk Pack Formatter PAGE 
Format Pack *= Write Track Headers 
A pages 
/* This procedure reformats all the bad tracks listed in the ATT. Bad data 


tracks are formatted as defectives, with alternate. Bad alternate tracks are 
formatted as defective without alternate. */ 


proc, 
dcl A fixed, /* index in ATT *«/ 
Cyl fixed, /* bad track*s cylinder */ 
Hd fixed, /x* bad track's head */ 
1 Trk Like TrackCode unals /* bad track */ 
1 Alt like TrackCode unal-s /* alternate */ 
do A = LBound(ATT»~1) to HBound(ATT.1)- /* run through the ATT */ 
Trk = ATTCA).Trks /x* bad track address */ 
if String(Trk) “= String(FreeTrk) /* if this isn't an empty entry */ 
then dos /* reformat the track */ 
Cyl = Trk.eCyls Hd = TrkwHd- /* get the track cylinder & head */ 
THeHALCytl = Cyls THsaHAeHd = Hds /* fill in header address */ 
Alt = ATTCA).,ALt;? /* get the alternate */ 
THeROCOunt.Cyl = Alt.Cyls THeROCoOunt.Hd = AltwsHd-/* fill in RO with address */ 
call FileP(FileAd(CylsHd,0)); /* seek */ 
if String (Trk) = String(fAlt) /* is it selfealternate? */ 
then do; /* then it's a oad alternate */ 
THeHAsTIy TH~ROCOunt.TI = TISBNe/* bad, alternateless */ 
call PIOOCdSformBN,THDCW)-, /* format */ 
ends 
else do-z /* is bad data track */ 
THAHALTI, THeROCount.TI = TISBAs/* bade, alternated */ 
call PIOOCd$S$formBA,THDCW), /«* format */ 
ends 
ends 
end: 


end Reformat, 
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MAIN 02/04/82 10:05:35 Disk Pack Formatter PAGE 32 e 
Test 
1076 % subtitle 'Test*s e 
1077 
1078 Test: proc returns (boolean), ) 
1079 
1080 % Gcl Trials Lit "4°, /* try up to 4 times */ 
1081 e 
1082 dcl Buffer (O:Sectors#1) char (4*RecSize)»~/* a track of sectors */ 
1083 1 BDCW Like DCW unaligned, /* a DCW for sane */ 
1084 Fails fixed, /* number. of bad tracks seen */ @ 
1085 
1086 Cyl fixed, /* cylinder numoer */ 
1087 Hd fixed, /* surface number */ @ 
1088 
1089 Try fixed, /* test counter */ 
1090 Errs fixed, /* operation error counter */ @ 
1091 
1092 St (Os:Trials=1) bit (€36) unaligned, /* saved bad status returns */ 
1093 I fixed, © 
1094 
1095 Fails = O- /* no evil seen yet */ 
1096 HDCW = IOTD(WAddr( Buf fer)s~WLlen(Buffer)), /* set up the DCW */ @ 
1097 call MakePattern; /* set up the initial pattern */ 
1098 
1099 do Cyl = 9 to UseCyls*1; /*x for each cylinder */ & 
1100 do Hd = 90 to Heads<1- /*« for each surface */ 
1101 
1102 call FileP(FileAd(Cyl,Hd,0)),- /* set the pointer to this track */ e 
1103 Errs = QO; /* nothing wrong yet */ : 
1104 
1105 do Try = 0 to Trials=1- /* do everything several times */ & 
1106 if not TestOp(dtwrite) /«* try to write it */ 
1107 then Errs = Errstt, 
1108 else do; /* if it wrote */ e 
1109 if not TestOp(dt$read) /x get it back */ 
1110 then dos 
1117 call MakePattern- /x fix it up if it was messed up */ e 
1112 Errs = e€rrsti, 
1113 ends ends end, 
1114 
11175 if Errs>O0 e 
1116 then do, /* something to report */ 
11177 if Fails = QO then put skip list (*track',*status')¢/* head */ e 
1118 Fails = Fails+i-, 
1119 put skip list (TrackName(Track(CylsHd)))- 
1120 do I = Q to Errse*le /* List the statii */ @ 
1121 put list (CSubStrdctal(StC1I)) 4776))- 
1122 ends end; 
1123 
1124 end, end, ad 
1125 
1126 put skip, /* finish any output */ e 
1127 return (Fails=0); /* tell about failures */ 
¢ 


llc erm mn ta a eR Ey ae ee eG ON gee tte AY Dw ah ae ee Were a lee et ee ae ee ne ee ee ee ee a A, a eae: Tt ie a Be Do he ae, A ee ee Tn ed 


MAIN 


1128 
1129 
1130 
1131 
1132 
1133 
1432 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
VAL 
1143 
1744 
44205 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 


02/04/82 10:05:35 Disk Pack Formatter 
Test 
Testop: proc (Op) returns (boolean), 


del Op fixed parameter, 
1S Like PIOStatus unaligned, 
Retry fixed, 

do Retry = 0 to 421; 


S = PIOCPack. File-Op/-BDCw)- 


PAGE 


/* operation code */ 

/* PIO status */ 

/* retry counter */ 

/* try several times */ 


/* 3ssue operation */ 


StCErrs) = SubStr(String(S).1236)-4/* save status in case */ 
if S.~Exec ~= Q00b3 and /* OK «/ 

SeExec ~= 001b3 and /« SFE «*/ 

SeExec ~= 400b3 and /* RERR */ 

SeExec ~= 420b3 /* UERR */ 


then go to Fails 
else do-s 
af $074 
then yo to Fail, 
else dos 


if SeMajyor = O0b3 
then dos 


/* should be one of those status */ 
/* at's a PIO status */ 
/* powered off? */ 


/* 19 error */ 


/* channel ready «/ 


if (S.Minor&'O010011'b)7~=""b/* auto retry or EDAC? */ 


then return (false), 
else return (true); 
end; 
elif S.Major = 03b3 
then do- 


/* no good */ 
/* no substatus is OK */ 


/x« data alert: */ 


int (S.Minor&*000011'b) =" 'b 


then, 


/* transmission parity or transfer timings retry 


elif (S.Minor&'000100'b)~=""b/* invalid seek? */ 


then go to Fails 
else return (false); 


end; 

elif S.Major = U?b3 
then, 

elif S.Major = 13b3 
then do- 


/* bad nuze */ 
/* header verif.es check char.es or comp. fail 


/* software tineout-s retry */ 


/* MPC data alert: */ 


1f S.Minor = *900100'b/* Byte Locked out */ 


then go to Fail-s 
else return (false); 
end, 
else go to Fails 
ends, end, 


ends 


return (false); 


/e why? «/ 
/* was bad */ 


/* unreasonable status */ 


/* end retry loop */ 


/* too many retries */ 


«/ 
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02/04/82 10:05:35 Disk Pack Formatter PAGE 34 
Test 


Fails ; /x* come here on unexpected status */ 
call ErrExit('’status "JIlOctal(SubStr(String(S$),1-36)))4/* bad nuze «/ 


end TestOp- 


/* Set up the test pattern. We just write all records with a pattern of 6's */ 


MakePattern: proc, 
del Pattern(0:4*RecSize#1) char static init (€C€4*RecSize)Chr(666b3))7/* beastlie test case */ 
dcl R fixed, /* record counter */ 
do R = QO to Sectors, /x fill in all sectors */ 
Buffer(R) = String(Pattern); /* fill in the dattern */ 
ends 


end MakePattern,s 


end Teste 
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Disk Pack Formatter 


Command Table 


4 subtitle "Command Table’; 


del CommandTable(14) char (12) static 


"HELP » 
"REFORMAT ', 
"FORMAT',» 
"ALTERNATES, 
"TESTS, 
*"EXIT', 
*PACK', 


"MAP * 


a? 


*LABEL', 


‘SET 


a 


*TRACKHEADER', 


‘TI's 


*DISABLE', 
"ENABLE'); 


init 


( 


/* 
/* 


what's defined */ 
obvious */ 


reformat a formatted pack */ 


format a fresh pack */ 


give a track an alternate */ 


test a pack */ 
x / 


attach a pack */ 


dump the TI pdits */ 
List the Label. «/ 


set the file pointer *«/ 


read the track neader 
rewrite the header */ 


disable EXEC error recovery (initial state, */ 


enable EXEC error rec 


/* This procedure is called by the command scanner when it has parsed a 


It is cal 


Dispatch: proc (CN), 
del CN f 


do case 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 
call 

end, 


led with the index of the command 
responsible for passing the 


ixed oarameter, 


(CN), 
Help, 
Reformat, 
_Format, 
Alternate, 
bests 
Exits 
Pack, 
_Map- 
Label, 
sets 
_trackHeader,s 
Tie 
Disable; 
_Enable,; 


end Dispatch, 


buck. 


x / 


in 


/* 
/* 


the command table and 


the command to execute 


branch */ 

help the user */ 
reformat a oack */ 
format a pack */ 


«/] 


overy */ 


command. 
is 


«/ 


Give atrack an alternate */ 


check it out */ 

leave! «*/ 

attach a pack */ 
decode the TI bits on 
dump the pack label */ 


the whole pack 


set the seek address */ 


read the header «/ 
rewrite the TI bits */ 


disable EXEC error recovery */ 
enable EXEC error recovery */ 


PAGE 


*/ 
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TOSO5. 235 Disk Pack Formatter PAGE 


Command Scan 


subtitle ‘Command Scan'*; 


Commandloop: this and associated procedures provide a comnand scanner. 
Command Lines are prompted with an octathorpe (#). Commands may be 
abbreviated to any degree as long as they are unambiguous. See the Lookup 
procedure for details on abbreviations. 


Several commands can be given on a line if they are seperated by octathorpes 
(#). The latest command can be repeated with an ampersand (&). 


Arguments to a command follow the commands and are seperated from each other 
by spaces. 


If an error occurs processing the cominand,s, call the procedure ErrExit with an 
error message. It will print the message and abort the current command Line. 
It will not return. 


CommandTable must be an array of command names. The L30und should be 1. 
Names should be char (n) nonvaryings and should be in uppercase. 


Dispatch(n) is called with the subscript in CommandTable of the command to 
execute. */ 


Cmdline char vafep /x the rest of the current command line */ 
CndError condition, /* signal to abandon command */ 
CndNum fixed, /* the current command number (fn) */ 


Commandloop:proc, 


de | 


Code fixed, /* the code for the current command */ 
Letters char (53) static init /* the legal conmand characters */ 
C*ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefyhijklmnopqrstuvwxyz_'"); 
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ReStart: 


10:05:35 


end 


Disk Pack Formatter 


Command Scan 


z~ pages 

on condition (CmdError) yo to ReStart-, /* 
Code = O, /* 
do indefinitely; /* 


it 
jos) 
we 
~ 

a 


CmdLine = Prompt(*#")s CmdNum 
do while (Length(CmdtLine) > Q)- /* 


tf SubStr(CmdlLinesz1,1) = tH! 
then Cmdline = SubStr(CmdlLines2)7 /* 


else do; 
CmdNum = CmdNum+1- /* 
if SubStr(CmdLines,1,1) = '8&' /* 
then do- /* 


if Code = 0Q 
then call ErréExit('undefined 


PAGE 


trap errors here */ 
remember nothing */ 
command loop */ 

start anew line */ 


process the line */ 


drop command delimiter */ 
next number (for error messages) */ 
"&"™ convention? *«/ 


means repeat previous command */ 


"S87 /* no orevious command */ 


else CmdlLine = SubStr(CmdLines2)-/* previous commands, drop "&" «/ 


ends 


else Code = Lookup(Upper(Break(CmdLines/* pop off the commands, *«/ 
Verify (CmdLine-Letters)))4/* standardizes, */ 
CommandTable(*))-/* & Look it up */ 
if Code = 0 then signal condition (CmdError)s/* couldn't look it up */ 


call Drop(CmdlLine-~Verify(CmdlLines* '))+/* drop spaces after command */ 


call Dispatch(Code), /* 


do the thing */ 


call Drop(CmdlLinesSearch(CmdLines*#&'))4/* get to next command */ 


end; 
end, 
end; 
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Error: 


ErrExit: 


10:05:35 Disk Pack Formatter PAGE 
Command Scan ** Errors 

% subtitte 'Command Scan ** Errors’; 
/* Error: prints its argument as an error message & returns */ 
proc (Mess), 

del Mess char var parameter, /x the error message */ 

put skip J/* print it */ 

Line C'!!! #*,CmdNum-') ERROR: '‘,Mess); 


end Errors 


/* Err€xit: prints its argument as an error message & escapes up 
to the command loops aborting the current command line. */ 


proc (Mess), 


dcl Mess char var parameter, /* parting words */ 
call Error(Mess), /* Yssue as standard error message */ 
signal condition (CmdError)-; /* beam us ups Scotty */ 


eng ErreExit?s 


38 


¢ 


Ne ee ee ee ee ee ee ee ee a ee ee ee a Ra eh aL P| a a 


MAIN 02/04/82 10:05:35 Disk Pack Formatter PAGE 39 
Command Scan == Input 
1331 & subtitle "Command Scan ** Input’; 
1332 
1333 /* Prompt: prints its argument as a prompts then returns the next Line 
1334 from the terminal (SysIn) as a string. 
1335 
1336 The prompt is printed after a newlines but is not followed by one, */ 
1337 
1338 Prompt: proc (Prompt) returns (char var); 
1339 dcl Prompt char (*) parameter, /* prompt: this is usually a const. */ 
1340 
1341 Line char vars /* get the Line into here */ 
1342 
1343 put skip /* prompt the user */ 
1344 edit (Prompt) (a); 
1345 get line (Line), /* get the response */ 
1346 return (Line); /* deliver */ 
1347 
1348 end Prompt, 


€ 
@ 
@ 
6 
6 
® 
@ 
@ 
e 
e 
@ 
® 
e 
e 
* 
e 
® 
e 
e 
e 
e 


£ 


eS gt = pen renee eh mean e RP TPE AA A SS PN SI A TON SO TS TL TR: 


"8 SR 


MAIN 


1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
437%, 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 


@®eeeeeeeeee8ee28¢eee¢e6ee0 6@ 6 0@e0 @ 


4 


02/04/82 


10:05:35 Disk Pack Formatter PAGE 


Command Scan ** Lookup 


% subtitle "Command Scan ** Lookup’; 


/* 


Lookup:looks up a string in a table. This is intended as a command 
parser, The table is searched for a match and the subscript of the match 
is returned. 


The match is chosen according to the following rules: 

1) A table entry identical to the string is an exact 
matchs and has priority. Failing thats 

2) if the string 1s an unambiguous abbreviation of 
a table entry then that 1S a match. An abbreviation 
1S an initial segment of an entry. An abbreviation 
1S unambiguous if it abbreviates only one entry. 

3) If both 1) and 2) fail then an error message is printed 
(via the Error() procedure) and the result is 0. 


Thuss commands may be abbreviated as long as they are unandiguous. 
If a command is ambiguous the error message lists the possibilities. 
In particulars unless it is defineds the empty string is completely 
ambiguous. */ 


CnoSubscriptRanygesnoStringRange): 
proc (GivensTable) returns (fixed); 


Lookup: 


/* parameters */ 


del Given char var parameter, /* the string to look up */ 
Table (*) char (*) parameter unaligneds/* the table to look in */ 


/* local */ 


I fixed, /* suodscript into Table *«/ 

Match fixed, /* subscript of last matchs or O */ 
Unique boolean, /* only one match found */ 

Glen fixed, /* length of search string */ 

TLen fixed; /* width of each entry in Table(*) */ 
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Command Scan =* Lookup 


4 pages 
Unique = true, /* assume initial uniqueness */ 
TLen = Length(Table(LBound({(Tables1)))-; /x« width of arbitrary table entry */ 
Glen = Length(Given), /* length of given string */ 
Match = 0, /* no match yet */ 
if Glen ~> TLen /* if there*s hope of a match */ 
then do I = LBound(Tables1) to HBound(Tables1)-/* search table */ 
if Given = SubStr(Table(I).1,-GLen) /* partial match? */ 
then do, /* yeser this is a possibility */ 
if Match ~= 0 then Unique = falses/* remember whether this was unique */ 
Match = I, /* remember this match */ 
if Table(Match) = Given /* does it match exactly? */ 
then return (Match), /*« then that's our man! */ 
ends 
end, 
1f Match = 0 /* anything seen? */ 
then call Error(Givenll' is not defined!"); 
elif Unique /x is this ambiguous? */ 
then return (Match); /* if not then we're done */ 
else do, /x tutor the user a little */ 


call Error(Givenll* is ambiguous. It could be any of:')7/* warn what's coming *«/ 
do I = LBound(Tables1) to HBound(Tables1)+/* List all matches */ 
if SubStr(Table(I),1/Glen) = Given/* if it was possible */ 
then put line (TableCI))- /* then List it */ 
end, 
end; 
return (G0),- /* in case we fall throughs return O */ 


end Lookups 
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ArgLlLeft: 


Arg: 


ArgCheck: 


10:05:35 Disk Pack Formatter PAGE 
Command Scan = Arguments 
% subtitle 'Command Scan ** Arguments'; 
/* Argleft: tells whether there are any further arguments to this command «*/ 
proc returns (boolean), 
if Length(CmdLine) 
then return (false) 


else return (Index ( 
end Arglefts 


oe) 


/x nothing left at all */ 
H#&’»SubStr(CmdlLinesz1.1)) = O0)7/* or starts new command *«/ 


ose If 


/* Arg: pops the next argument off the current command line. The argument 
is delimited by spaces. It is not uppercased. If no more arguments 
were supplied then the empty string is returned. */ 


proc returns (char var); 


dcl R char var; /* the result to be */ 
R = Break({CmdlLinesSearch(Cmdlines»"#& *))s /* break at the next space or delim. «/ 
call Drop(CmdLinesVerify(CmdlLines* *')), /* then throw away trailing spaces */ 
return (R)-; . /* deliver */ 

end Arg; 


/* ArgCheck: makes sure that there aren't too many arguments to a command. If 
there are then ErrExit is called. */ 


procs 
If Argleft() then call ErrExit('’too many arguments! '); 
end ArgCheck, 
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ArgAddress: 


ArgTI: 


ArgDdev: 


10:05:35 Disk Pack Formatter shee 
Argument Scan 
4 subtitle "Argument Scan"; 


/* ArgAddress: converts the next argument to an address, setting the result 
parameters to the cylinders heads and sector. 


If the argument isn't in a legitimate format then ErrExit() is called. */ 
proc (Cyl-,Hd-Sect)-, 

del (CylsHds-Sect) fixed parameter; /* the results */ 

if not MakeAddress(Arg()/CylsHd-Sect) /* try the conversion */ 

then call Err€xit('bad format for address.')- 
end ArgAddress, 


/* ArgTIi converts the next argument to a TI value. If it doesn't conform then 
Err€xit() is called. 


TI bits are specified as two binary digits. */ 


proc returns (bit(2) unaligned); 


dcl A char vars /* the argument string in ASCII */ 
B bit (2), /x* the bits */ 
A = Arg); /* get an argument */ 


if Length(A) ~= 2 or Verify(As*01') “= GO J/* check format */ 
then call ErréExit(C'incorrect format for TI bits.'); 
else get edit (B) (b(€2)) string (A); /* if OK then convert */ 
return (B); /* deliver */ 
end ArgTlI, 


/* ArgDev: gets a device name as an argument. This is uppercased,. */ 


proc returns (char var)s return (Upper (Arg ()))- end ArgDevs 
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OptAddress: 


OptDev: 


10:05:35 Disk Pack Formatter PAGE 
Argument Scan 
“4 pages 
/* OptAddress: if an argument was supplied then it iS converted to an address 


and the current pointer on the pack is Set there. Otherwise there should be 
no arguments */ 


proc, 
del (Cyls-Hd-Sect) fixed, /x as specified */ 
if Argleft() /* if anything was given */ 
then do- /x* then use it */ 
call ArgAddress(CylsHds-Sect)-s /* as an address */ 
call FileP(FileAd(Cyls,Hd,Sect)); /* for the pack */ 
call ArgCheck- /* nothing else */ 
end, 


end OptAddress, 


/* OptDev: if an argument was supplied it is opened for the current pack. 
There should be no other arguments */ 


proc, 
if Argleft() /* af there was anything */ 
then dos 
call GetPack(ArgDev())- /* use it */ 
call ArgCheck-s 
end; /* accept no more */ 


end OptDev, 
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Helos 
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Commands ** Help 
% subtitle "Commands == Help’; 
/x HELP 


The user needs help. Tell him what we know by listing a file on the TTY. 
Gives up if the file is not found. No big deal. */ 


procs 
del HFile int file constant, /* the help file */ 
Line char. var, /* a Line therefrom */ 
HFileName char (25) static init (':smsyscat:simcatl:packfmt')s/* help? file */ 


on UndefinedFileCHFile) call ErrExit('can*'t open 'IIHFileName)-/* give up easy */ 


open file (HFile) title (HFileName) stream inputs /* get the file */ 


do while (MoreCHFile)); /* copy it out */ 
get Line (Line) file CHFile)s put line (Line); 

end- 

close file (HFile), /* clean up */ 


end Helps 
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_Disables 


10:05:35 Disk Pack Formatter PAGE 
Commands =* Exits Enables Disable 
% subtitle "Commands == Exits Enable, Disable’, 
/* EXIT 


cleans up loose ends and terminates. */ 


proc, 
call ArgChecks /* accept no arguments */ 
call DropPacks /* clean up */ 
close file (PerCat); 
stop; 


end Exit, 
/* ENASBLE 


enables Executive error recovery on the current drive. This 1s done anyway 
when a drive is closed. */ 


proce 
call ArgCheck,s /* accept no arguments */ 
call PackCheck- /* make sure we've something */ 
call Drive(Pack.File,sdtrecov), /* drive */ 


end _Enable-, 
/* DISABLE 


disables Executive error recovery on the current device. This is the 
Initial state. */ 


proc, 
call ArgChecks /* accept no arguments */ 
call PackCheck- /x* make sure we've something */ 


call Drive(Pack.Fileszdtnorcyv); 


end _Disable- 
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Packs. 


10:05:35 Disk Pack Formatter PAGE 


Commands =# Sets Pack 
% subtitle *Commands == Sets, Pack"; 
/* SET <address> 
Sets the pointer on the current pack to the <address>, The current logical 
record is the one beginning at that address. The current track is the one 
containing the address. 


Note that this address *must* be aligned on a logical record boundary. 


The argument is not optional. */ 


proce 
call PackCheck,s /* make sure we've something */ 
if Argleft() /* if argument was supplied */ 
then call OptAddress-,- /*« then treat like optional address */ 


else call ErréExit('must supply <address>')¢s/* just not optional */ 
end Set, 
/* PACK <device name> 


Open a device as the current packs but do nothing with it. This is useful 
when you Intend to do something besides (re)format it. */ 


proce 
if Argleft() /* if argument was supplied */ 
then call OptDev, /* treat like optional pack name «/ 


else call ErreExit('must supply <device name>')-/* just not optional *«/ 


end _Pack, 
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end 


0:05:35 Disk Pack Formatter PAGE 
Commands *== Test 
ubtitle ‘Commands «= Test’; 


TEST CK<device name>J 


tests the pack. Each track is written with a pattern, then reread. Bad 
status returns are printeds but nothing is done about then. 

All data except the label area are destroyed. 

If a device name is given that becomes the current pack. */ 


Cr 

call OptDev-e /* get the pack */ 
call PackCheck, /* got it? */ 

if Test@ /* check it out */ 


then put skip 
Line ('no errors')-,; 


call wWriteTrackQO-; /* put back the Label we just trashed */ 


_lest-, 
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€ € 
e MAIN 02/04/82 10:05:35 Disk Pack Formatter PAGE 49 @ 
Commands «= TrackHeader 
e 1619 % subtitle "Commands ** TrackHeader'; sd 
1620 
1621 /* TRACKHEADER (C<add >J 
e hee address & 
1623 dump the current trackheader. This is in a bizarre form. The header address 
e 1624 and ROCount address are dumped as track addresses. The TI bits are dumped e@ 
1625 in binary. The entire track header is then dumped in hex as a series of 
1626 eightsbit bytes. 
1628 If an address is supplied that becomes the current address */ 
1629 
1630 _TrackHeader:proc, 
e 1631 e 
1632 call PackCheck-, /* make sure we've something */ 
e nee call OptAddress, /* optional address */ @ 
1635 call PIlOOCdtSrhead/-THDCW),- /* assue the 10 call */ 
1636 
Ld 1637 put skip ad 
1638 edit ('HA '," address: ‘sHAName()) (a) 
1639 C' Tl: "-TH.HA.TI) Carb1(2))- 
® 1640 put skip ad 
164) edit ('ROCount's,' address: ‘sTrackName(Track((TH.ROCount.Cyl), 
@ 1642 (TH,.ROCount.Hd)))) Cad) e@ 
1643 C' Tl: ',TH.ROCount.~Flag.TI) Caszd102)), 
1644 
1645 del Alias(0:21) bit (8) unaligned based (Addr(TH))-/* a byte alias */ @ 
@ 7 
1646 
1647 put skip 
& 1648 edit ('Track Header') (a) e 
1649 C(AlLias(*)) (skips11¢x(1),b402)))- 
1650 
e 1651 end _TrackHeader,s e@ 
6 @ 
@ e@ 
@ @ 
@ e 
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Commands ** TI 


1652 % subtitle ‘Commands «= TI'; 

1653 

1654 /* TI <ti bits> [C<address>J 

1655 

1656 This command patches the track header of the current track. The track 

1657 indicator is set to <ti bits>, which must be a twosbit binary number. 

1658 If an <address> is supplied it is used as the record 0 count field 

1659 address. 

1660 

1661 This command is intended for debugging use. It is possible to seriously mess 
1662 things up by incorrect use of this command. */ 

1663 

1664 _TI: procs 

1665 

1666 call PackCheck-; /x make sure we've got something */ 
1667 

1668 call P1lOOCdtrhead-THDCW)-; /* read the header */ 

1669 

1670 THALHA.LTI-TH.ROCount.TI = ArgTI(), /* get the TI bits */ 

1671 

1672 if Argleft( /* if the address was supplied */ 
1673 then begin- /* use the address in the record 0 count */ 
1674 del (CylsvHddsSect) fixed, /* get some tenps */ 

1675 call ArgAddress(Cyls,Hd,-Sect)-; /* get the address */ 

1676 TH.ROCount.Cyl = Cyl-e TH.LROCount.Hd = Hds/* put it where it goes */ 
1677 end, 

1678 

1679 call ArgCheck, /* should be no more arguments */ 
1680 

1681 call PIOUCdSform+tShHL( FixedBin(TH.HA.LTI)-9)-/* get appropriate format drive */ 
1682 THDCW)> 

16&3 

1684 end _TI, 
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e MAIN 02/04/82 10:05:35 Disk Pack Formatter PAGE 1 ) 
Commands ** Map 

ad 1685 % subtitle ‘Commands == Map'; e 
1686 

e 1687 /* MAP EC<device name>] ® 
1688 
1689 Print a map of the TI bits on the packs showing which tracks are goods which 

e 1690 defective, which primary, and which alternate. For defective tracks with ) 
1691 alternates the address of the alternate is also given. 
1692 

@ 1693 The state of each track is determined by reading the track's header. This @ 
1694 reveals the actual state of the tracks and 1s more reliable than the table on 
1695 track OO. Howevers it takes a long time (as long as FORMAT). This may be 

e 1696 worthwhile if a pack has been formatted befores but the tables have been @ 
1697 destroyed (as by DEVTEST). */ 
1698 
1699 _Map: procs 

ad 1700 e 
1701 del Loc fixed, /* current logical record number */ 

@ 1702 Step fixed, /* logical records on atrack */ & 
1703 PLoc fixed; /* logical address before we began */ 
1704 : 

@ 1705 call. OptDev, /* optional. device name */ @ 
1706 call PackCheck; /x* make sure this is valid */ 
1707 

@ 1708 PLoc = Pack.Lloc; /* remember where we were */ @ 
1709 Step = Sectors/LogRecs-s /* track sizes in logical records */ 
1710 Loc = O, /* start at the outside */ 
1711 

e 1712 e 
1713 do while (Loc < Range), /* run to the end */ 

@ 1714 call ReadTH-,s /* get the current header handy */ e@ 
1715 
1716 if THLHALTI = TISGP 

) 1717 then call Area(TI$GP,' good primary')s /* group good tracks */ @ 
1718 elif TH.HA.TI = TISGA 
1719 then call Area(TISGAs' good alternate'), 

) 1720 else dos /* these will be isolated instances */ & 
1721 if THLHA.TI = TISBA 
1722 then put skip /* bads with alternate */ 

e 1723 edit (HAName(),' defective tracks alternate is ') (a) @ 
1724 (TrackName(Track((TH.ROCount.Cyl) -(THLROCount.~Hd)))) Cade 
1725 else put skip /* bads alternateless */ 

) 1726 edit (HAName()) (a) ) 
1727 (‘defective track without alternate’) (col(20)-,a), 
1728 Loc = Loct+Step,s /* next */ 
1729 end; : 

sd 1730 end, e 
1731 

e 1732 call FileP(PLoc); /* get back into known state */ e@ 

® @ 


| 
| 
| 


e 
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e MAIN 02/04/82 10:05:35 Disk Pack Formatter PAGE 52 e 
Commands == Map 
sd 1733 % pages e 
1734 
my 1735 /* we expect that most of the tracks will be (primarysgood) or Calternatesgood). é 
1736 This procedure dumps a series of such tracks as arrange (first ... last). 
1737 Call with the TI bits to look for and the name of the kind of track, */ 
1738 
® 1739 Area: proc (TI-Name)-, e 
1740 del TI bit (2) parameter, /* the kind of TI bits we're looking for */ 
@ 1741 Name char (*)parameter-, /* the name of this kind */ @ 
1742 
1743 put skip /* print starting (possibly only) in range */ 
1744 edit CHAName()) (ade 
® ) @ 
1745 
1746 /* If there was an isolated track of this type then just print it. Ifs however, 
@ 1747 there was more than ones print it as a range. Stop when the pack runs out e 
1748 or some other TI turns up */ 
| 1749 
@ 1750 Loc = Loct+Step, /* Look at the next */ ®@ 
| 1751 if Same() /* more of same? «/ 
| 1752 then dos /* there are several such here */ 
@ 1753 put edt 0" fc0. "2. fae /* show that a range is coming */ @ 
! 1754 Loc = LoctStep,; /x move ahead */ 
: 1755 do while (Same())- Loc = LoctSteps ends/* find end of range */ 
| @ 1756 put edit (TrackName(TrackAd(Loc*Step))) Cads/* print the last address before */ @ 
| 1757 ends 
1758 put edit (Name) (col(20),a), /* follow with name of area */ 
| 1759 
e 1760 /* this procedure determines whether the current track (indicated by Loc) exists e 
1761 and if sos whether it has the same TI bits, */ 
a7 62 
id 1763 Same: aroc returns (boolean), e 
° 4764 1f Loc = Range /* does it exist? */ 
@ 1765 then return (false); /* nos difficult ontological question */ e 
1766 else do, /* yesr see if it is the same */ 
1767 call ReadTH- /* look at the header *«/ 
1768 return (TH.ZHA.TI = TI)- /* well? «/ 
e 1769 ends e 
1770 end Same; 
1771 end Area, 
e 1772 e 
1773 /* procedure to read the track header of the track indicated by Loc */ 
1774 
sd 1775 ReadTH: procs ad 
1776 call FileP(Loc), call PIOOCd$rhead-THDCW)-/* read the track header */ 
1777 nd R aTH-, 
e 1778 ° “= e 
1779 end _Map-, 
e ® 
e 6 
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1787 
1788 
1789 
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17974 
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1804 
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Label: 


10:05:35 


Commands 


% subtitle "Commands ««* 


/* LABEL E£<device name>] 


reads the label and AlternateTrackTable off the pack. 
reasonable, 


is. If it looked 


proce 


call OptDev, 
call PackCheck, 


/* assume that there 1s 


skip 

edit ('label type't, 
‘site', 
‘number', 
"pack name', 
‘pack type't, 


a 
? 


put 


‘initialized’, 
‘retain until',s,ADate(Label.RDate), 


"sequence #', 


call ATTCheck; 
call DumpATT, 


end Label, 


Disk Pack Formatter 


Label"; 


something of a label, 


PAGE a3 


“= Label 


The label 
1s also dumped, */ 


1s dumped as 
the ATT 


/* get a optional pack name */ 
/* make sure we've something to do */ 


& dump it. */ 


/« dump the label */ 

ACI (Label.Begin), 

ACI (Label.Site), 

ACI €CLabel.Numb), 

ACI (CSubStr(Label.Names1/36)) IIACI (CSubStr( Label .Names37,36)), 
ACI (Label.Type), 

Octal(Label.Misc), 

ADate(Label.IDate), 


ACI (Label.Seqno) ) 
C(skipval25) rade 


/* don't continue without ATT */ 
/* dump one */ 


8 
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e MAIN 02/04/82 10:05:35 Disk Pack Formatter PAGE 54 @ 
Commands =* Format 
e 1810 4 subtitle "Commands =* Format’; e 
1811 
1812 /* FORMAT C<device name>] 
e 1813 | e 
1814 Format a packs» ignoring any information that might be there. This is necessary 
®@ 1815 if a pack has not been formatted befores or if the label area (Track Q) is @ 
1816 unreadable. The user must list all bad tracks. The pack is formatted using 
1817 this data and relabelled. 
1819 If no pack name is given then the current pack is uSed. */ 
1820 
1821 _Format: procs 
sd 1822 e 
1823 call OptDev-, /* get a optional pack name *«/ 
@ 1824 @ 
1825 call PackCheck, /* make sure there's something to do */ 
1826 
) 13827 call ClearTrackO, /* clear the info */ @ 
13828 call NewLabel-> /x* get a Label *«/ 
1829 call ClearATT-s /* no bad tracks yet */ 
e 1330 put lLine(*'what are the bad tracks?*)- call AskOp-s/* see if anything to add */ @ 
1331 call Format; /* quick T&SD format */ 
1832 call Reformat, /x* take care of alternate tracks */ 
) — call DumpATTs /* give final eS TeD «/ @ 
TESS call ReLabel-, /* rewrite pack information in label *«/ 
1836 
ad 1337 end _Format,; e 
@ e 
@ ] 
®@ e 
e e 
® @ 
@ 
e ad 
& e 


i 
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Commands = ReFormat 


1838 4% Subtitle *Commands *= ReFormat',s 

1839. 

1840 /* REFORMAT C<device name>] 

1841 

1842 The reformat command reformats the current pack. This pack must be one that 
1843 has already been formatted and labelled. For the user's edification 

1844 the interesting data in the label is decoded and printed. The list of 

1845 tracks in the ATT is assumed valid and used to construct tne new ATT. 

1846 The user is given an opportunity to list further bad tracks. Then the pack 
1847 1s reformatted and relabelled. 

1848 

1849 If no pack name is given then the current pack is used. */ 

1850 

13851 Reformat: proc, 

13852 dcl Line char var, /* place to get answer to questions */ 
1853 

1854 call OptDev, /* get a optional pack name */ 
1355 

1856 call PackCheck- /* make sure we've something to do */ 
1857 

1858 call ATTCheck, /* make sure it's got a label «/ 
1859 

1860 put skip /* tell what we know */ 

1361 edit C'pack ',ACI(CLavel.Numb), 

1862 " Last formatted on ‘',ADate(Label.IDate), 

1863 " for ',ACI(Label.Site)) (Ca)s 

1364 

1865 call DumpATT, /* tell all we know */ 

1866 put lLine€*any other bad tracks?')s call AskOps/* see what the user has to add */ 
1367 call Format, /* first a simole formatting */ 
1868 call Reformat, /* then patch uo the bad spots */ 
1869 call DumpATT,- /* give final version */ 

1870 

1871 call ReLavel; /* we've reformatted */ 

1872 

1873 end _ReFormat-s 
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e MAIN 02/04/82 10:05:35 Disk Pack Formatter PAGE 56 @ 
Commands ** Alternate 

e 1874 % subtitle "Commands = Alternate'; e 
1875 
1876 /* ALTERNATE (C<address>J 

ad 1377 sd 
1878 Give the indicated track an alternate and update the ATT. This requires an 

®@ 1879 ATT. If the track already has an alternates then we mark that bad and find @ 
1880 another. 
1881 
1882 If an address 1s supplied it becomes the current address. */ @ 

d 1883 
1884 _Alternate: proc, 

) 1885 e 
1886 del 1 Trk Like TrackCode unal, /* code for the bad track */ 
1887 A fixed; /* ATT index of */ 
1888 

ad 1389 call PackCheck, /* must have a pack */ ad 
1890 call OptAddress-, /* get the address */ 
1891 

ad 1892 | call ATTChecks /* got to have an ATT */ @ 
1893 

® 1894 Trk = TrackAd(€Pack.Lloc); e 
1895 if Trk.Cyl.~< UseCyls then call ErrExit('That''s not a data track"); 
1896 

e 1897 if SearchATT(TrksA) /* already bad? */ @ 
1898 then do, /* then we must relink */ 
1899 dct Ploc fixed, /* loc of bad track */ 
1900 

sd 1901 PLoc = Pack.lLocs /* save previous address */ e 
1902 call FilePCFIleAdCCCATTCA)LALLT. Cyl), /* go to bad Alt */ 
1903 CATTCA)D.LALLTL.HO),» 

sd 1904 O))- e 
1905 catl PIOOCdt$rhead/-THODCW)- /* read the header */ 

) 1906 THeHALTI» TH.ROCOunt.TI = TISBN- /* bad» no alternate */ e@ 
1907 call PIOOCd$formBN,THDCW)-; /* rewrite header */ 
1908 StringCATTCA).Trk) = String(ATTCA). Alt) e/* make selfealternate */ 

e 1909 call FileP(Ploc); /* go back to nad track */ e 
1910 end; 
1917 

) 1912 if not SearchATT(FreeTrksA) then call ErrExit('too many dad tracks"), @ 
1913 ATTCA).Trk = Trks /x make this alternated */ 
1914 call PIOOCdSrheadsTHDCW)-, /* get the header */ 

@ 1915 THLHA.LTI, THe.ROCount.TI = TISBA; /* defectives with alternate */ @ 
1916 THe.RICount. Cyl = ATTCA).ALt.Cyls TH.ROCount.Hd = ATTCA).ALt.Hds/* Link to Alt */ 
1917 call PIOOCd$formBAs,THDCW), /x* reformat */ 

@ 1918 eS 
1919 call ReLabel, /* we've sort of reformatted */ 
1920 

e 1921 end Alternate, & 

@ e 
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Init: 


10265255 Disk Pack Formatter 
Startup 
% subtitle '"Startup’s 


/* set the initial pack to an undefined file, 
make opening devices easier, */ 


procs 
del NoPrompt ext entry(filed-s 


Pack.File = NulLlF(); 


open file (PerCat) 
title ('PERCAT') 
env Cunformatted 
catfrn (0) 
access (411000b3)), 
PerCatFRN = FRN(PerCat)-, 


call NoPronpt(SysIn)- 


end Init, 


PAGE 57 


and yet a FRN for PERCATs to 


/* 


ik 


/* 
/* 


/* 


suppress builtin prompt */ 


mark this as undefined. */ 


no I/O just the FRN «/ 


open with CSR */ 
get what we wanted */ 


we do our own prompting */ 


eeeeee%eeee%e%eeee0e000 0080 8@ @ 


MAIN 


1942 
1943 
1944 
1945 
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1946 


02/04/82 10:05:35 Disk Pack Formatter 
Driver 
% subtitle ‘Driver’, 
call Init, 
call CommandLoop,s 


end PackfFmt-, 


/* 


/* 


set up */ 


start doing things 


*/ 
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line 


1048 
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= 
o® 
3 
D 


A 

A 

ACC 
ACC 
ACC 
ACC 
ACC 
ACC 
ACC 
ACC 
ACI 


ACTION 
ACTION 
ACTION 
ACTION 
ACTION 
ACTION 
ACTION 
ADATE 
ADDALT 
ADDATT 
ADDR 
ADDUSE 
ALIAS 


ALT 
ALT 
ALTCYLS 
AND 


AREA 

ARG 
ARGADDRESS 
ARGCHECK 
ARGDEV 
ARGLEFT 
ARGTI 
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Disk Pack Formatter 


type 


FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 
FIXED 


BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 
BIN 


CHAR (6) 


CHAR(C1 


FIXED 


CHAR 
FIXED 
BIT(1) 
BIT(9) 
BIT(C9) 
BLIk3) 
BIT(9) 
BIT(9) 
BIT(9) 
BIT(C9) 
BIT(C9) 
ENTRY 


BIT(2) 
BITC2) 
BIT(2) 
BITC2) 
BIT(C2) 
BIT C2) 
BITC2) 
ENTRY 
ENTRY 
ENTRY 
BUILTI 
ENTRY 
BIT (8) 


) 


BIN 


BIN 


N 


STRUCTURE 
STRUCTURE 
LITERALLY 
LITERALLY 


ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY. 


attribut 


ALIGNED 
ALIGNED 
ALIGNED 
ALIGNED 
ALIGNED 
ALIGNED 
ALIGNED 
ALIGNED 
AUTO 


AUTO DIM(O0:5) 


VARTABLE 
ALIGNED 


es 


AUTO 
AUTO 
AUTO 
AUTO 
AUTO 
AUTO 
AUTO 
AUTO 


AUTO 


INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 


PREC (35) 
PREC(35) 
PREC(35) 
PREC (35) 
PREC (35) 
PREC (35) 
PREC CS5) 
PREC(35) 


REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 


VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 


INT NONVARYING UNAL VARIABLE 


INT NONVARYING UNAL 


INT PREC (35) REAL VARIABLE 


ALIGNED AUTO INT VARIABLE VAR 


ALIGNED INT PARM PREC(35) REAL VARIABLE 


INT MEMBER 
INT MEMBER 
INT MEMBER 
INT MEMBER 
INT MEMBER 
INT MEMBER 
INT MEMBER 
INT MEMBER 
INT MEMBER 


NONVARYING 
NONVARYING 
NONVARYING 
NONVARYING 
NONVARYING 
NONVARYING 
NONVARYING 
NONVARYING 
NONVARYING 


CONSTANT INT RETURNS 


INT MEMBER 
INT MEMBER 
INT MEMBER 
INT MEMBER 
INT MEMBER 
INT MEMBER 
INT MEMBER 
CONSTANT 


NONVARYING 
NONVARYING 
NONVARYING 
NONVARYING 
NONVARYING 
NONVARYING 
NONVARYING 


INT RETURNS 


CONSTANT INT 
CONSTANT INT 


INT 


CONSTANT INT 


BASED DIM(0:21) 


VARTABLE 


AUTO INT LIKE UNAL VARIABLE 
MEMBER UNAL VARIABLE 


INT LIKE 


CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 


CONSTANT 


INT 
CONSTANT INT 
INT 
INT 
INT 
CONSTANT INT 
INT 


RETURNS 


RETURNS 
RETURNS 
RETURNS 


UNAL 
UNAL 
UNAL 
UNAL 


UNAL. 


UNAL 
UNAL 


UNAL 


UNAL 


UNAL 
UNAL 
UNAL 
UNAL 
UNAL 
UNAL 
UNAL 


VARTABLE 
VARIABLE 
VART ABLE 
VART ABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARTABLE 
VART ABLE 


VARIABLE 
VARIABLE 
VART ABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 


INT NONVARYING UNAL 


references by Line 


1054 
954 
925 
914 
901 
875 
855 
837 
631 
580 


1897 
1916 
1466 

226 


1055 
955 
926 
915 


878 
856 
840 
632 
581 


1902 


1467 
220 


747 
1803 


1060 
957 
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878 
S57 
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632 
1903 


1467 


748 
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13.55 


1496 
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880 
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1908 


1469 


1795 
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733 


932 
876 
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1908 


1796 
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name 


ASCII 


ASKOP 
ATT 
ATTCHECK 


BDATE 
BOCW 
BEGIN 
BOOLEAN 


BREAK 
BUFFER 


BYTE 
C 


C 

C 

ccc 
CHKCHR 
CHR 
CLEARATT 


CLEARTRACKOU 


CMDERROR 
CMDLINE 


CMDNUM 
CN 
CODE 
CODE 


COMMANDLOCP 
COMMANDTABLE 


COUNT 


COUNT 


COUNT 


COUNT 


Disk Pack Formatter 


type 
CHARC1) 


ENTRY 
STRUCTURE 
ENTRY 

BIT (36) 
BIT(2) 
UNSIGNED 


BIT(36) 
UNSIGNED 


ENTRY 


ENTRY 
STRUCTURE 
BIT(36) 
LITERALLY 


ENTRY 
CHAR( 256) 


BUILTIN 
FIXED BIN 
FIXED BIN 
UNSIGNED 


FIXED BIN 
FIXED BIN 
PICTURE 
BIT C6) 
BUILTIN 
ENTRY 
ENTRY 
CONDITION 
CHAR 


FIXED BIN 
FIXED BIN 
FIXED BIN 
FIXED BIN 
ENTRY 
CHAR( 12) 


UNSIGNED 
UNSIGNED 


UNSIGNED 


UNSIGNED 


attributes 


DIM(O:63) INIT INT NONVARYING STATIC 
UNAL VARIABLE 

CONSTANT INT 

ALIGNED BASED DIM(0:56) INT VARIABLE 
CONSTANT INT 

INT NONVARYING PARM UNAL VARIABLE 
AUTO INT NONVARYING UNAL VARIABLE 
AUTO BIN DIM(1:36) INT PRECC6) REAL UNAL 
VARIABLE 

INT NONVARYING PARM UNAL VARIABLE 
BIN DIM(€32:95) INIT INT PRECC6) REAL 
STATIC UNAL VARIABLE 

CONSTANT INT RETURNS 


CONSTANT INT RETURNS 
AUTO INT LIKE UNAL VARIABLE 
INT MEMBER NONVARYING UNAL VARIABLE 


CONSTANT INT RETURNS 

AUTO DIM(0:39) INT NONVARYING UNAL 
VARIABLE 

INT 

ALIGNED AUTO INT PREC(C35) REAL VARIABLE 
ALIGNED AUTO INT PREC(35) REAL VARIABLE 
AUTO BIN DIM(O:5) INT PRECC6) REAL UNAL 
VARIABLE 

ALIGNED INT PARM PREC(35) REAL VARIABLE 
ALIGNED INT PARM PREC(C35) REAL VARIABLE 
INT MEMBER UNAL VARIABLE 

INT MEMBER NONVARYING UNAL VARIABLE 

INT 

CONSTANT INT 

CONSTANT INT 

EXT 

ALIGNED AUTO INT VARIABLE VAR 


ALIGNED AUTO INT PREC(35) REAL VARIABLE 
ALIGNED INT PARM PREC(35) REAL VARIABLE 
ALIGNED AUTO INT PREC(35) REAL VARIABLE 
ALIGNED INT PARM PREC(35) REAL VARIABLE 
CONSTANT INT 

DIMC1:2:14) INIT INT NONVARYING STATIC 
UNAL VARIABLE 

BIN INT MEMBER PREC(12) REAL UNAL 
VARIABLE 

BIN INT MEMBER PREC(712) REAL UNAL 
VARIABLE 

BIN INT MEMBER PREC(12) REAL UNAL 
VARTABLE 

BIN INT MEMBER PREC(12) REAL UNAL. 


references by line 


580 


1830 
837 
1806 
579 
1469 
607 


628 
607 


619 
770 
768 
1096 
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1130 
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606 
1072 
606 
pa ae 


501 
488 
800 


1188 
1829 
1827 
1277 
1283 
1297 
1434 
1283 
1223 
1279 

454 
1946 
1299 


1866 
&55 
1858 
563 
1470 
609 


631 
756 
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756 
650 

1382 

1434 

1096 


1014 
606 
280 


496 
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1300 
1285 
1298 
1434 
1290 
1220 
1293 

445 


855 
1892 


624 


(57 


T£93 
704 
1421 


1192 


1022 
606 


483 


ioc? 
1287 
1303 
1435 
1290 


1297 


875 


758 


746 
1763 


1024 
606 


1288 
1.303 
1435 
1320 


1300 
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758 


851 


1032 
607 


1288 
S02 


1305 
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871 


1034 


12941 
1307 
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767 
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1295 
1422 
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® MAIN 02/04/82 10205235 Disk Pack Formatter PAGE 61 e 
line mame type attributes references by Line 
sd VARIABLE sd 
189 COUNT UNSIGNED BIN INT MEMBER PREC(12) REAL UNAL 
@ VARIABLE @ 
224 COUNT UNSIGNED BIN INT MEMBER PREC(12) REAL UNAL 229 
VARIABLE 
e 129 COUNT UNSIGNED BIN INT MEMBER PREC(12) REAL UNAL ® 
VARIABLE 
706 CST1 STRUCTURE INT MEMBER UNAL VARIABLE 
® 143 CST STRUCTURE INT MEMBER UNAL VARIABLE € 
252 CST1 STRUCTURE INT MEMBER UNAL VARTABLE 
1133 CST STRUCTURE INT MEMBER UNAL VARIABLE 
e 277 CST STRUCTURE INT MEMBER UNAL VARIABLE  ) 
7381 CYL UNSIGNED BIN INT MEMBER PREC(10) REAL UNAL 
VARIABLE 
) 1049 CYL FIXED BIN ALIGNED AUTO INT PREC(35) REAL VARIABLE 1058 1059 1062 @ 
790 CYL UNSIGNED BIN INT MEMBER PREC(10) REAL UNAL 791 
VARIABLE 
@ 788 Lik FIXED BIN ALIGNED INT PARM PREC(35) REAL VARIABLE 794 7187 @ 
1051 CYL UNSIGNED BIN INT MEMBER PREC(10) REAL UNAL 1058 
VARIABLE 
e 798 CYL UNSIGNED BIN INT MEMBER PREC(10) REAL UNAL 800 @ 
VARIABLE 
1886 CYL UNSIGNED BIN INT MEMBER PREC(10) REAL UNAL 1895 
@ . VARIABLE @ 
938 CYL UNSIGNED BIN INT MEMBER PREC(10) REAL UNAL 
VARIABLE 
e 1052 CYL UNSIGNED BIN INT MEMBER PREC(10) REAL UNAL 1061 e 
VARIABLE 
824 CYL UNSIGNED BIN INT MEMBER PREC(10) REAL UNAL 878 1902 1916 
@ VARIABLE @ 
823 ee UNSIGNED BIN INT MEMBER PREC(10) REAL UNAL 
VARIABLE 
@ 972 CYL FIXED BIN ALIGNED AUTO INT PREC(C35) REAL VARIABLE 981 983 983 985 @ 
829 CYL UNSIGNED BIN INT MEMBER PREC(10) REAL UNAL 
VARIABLE 
@ 834 CYL FIXED BIN ALIGNED AUTO INT PREC( 35) REAL VARIABLE R3E 840 r 
947 CYL UNSIGNED BIN INT MEMBER PREC(10) REAL UNAL 
VARIABLE 
& 872 CYL , FIXED BIN ALIGNED AUTO INT PREC(35) REAL VARIABLE 876 878 & 
950 CYL UNSIGNED BIN INT MEMBER PREC(10) REAL UNAL 
VARIABLE 
e 897 CYL UNSIGNED BIN INT MEMBER PREC(10) REAL UNAL 899 905 ) 
VARTABLE 
912 CYL UNSIGNED BIN INT MEMBER PREC(10) REAL UNAL 
@ ; VARIABLE € 
925 CYL UNSIGNED BIN INT MEMBER PREC(10) REAL UNAL 925 
VARIABLE 
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VARIABLE ; 
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) 1453 CYL FIXED BIN ALIGNED INT PARM PREC (35) REAL VARIABLE 1454 1452 @ 
1674 CYL FIXED BIN ALIGNED AUTO INT PREC(35) REAL VARIABLE 1675 1676 


9 A EE AAA Av A PNA PS A AO AAA TA A PEA AT 


eo ¢-eee8e608mC‘“—itrOWDUC ]HCTUlUC OUmUC WC COUrmUCOmhUC OOUC MrmUC<C HUC—C<COrUCOMCUMhlUOhlUh 


e 


02/04/82 


DSFOR™ 
DSFORMBA 
DSFORMBN 
DSFORMGA 
DSFORMGP 
DSNORCYV 
DBREAD 
DSRECOV 
DERHEAD 
DSwWRITE 
DATA 


DATA 


DATA 


DATA 
DATE 

DCw 
DCWNO 
DCWNO 
DCWNO 
DCWNO 
DCwNO 
DISPATCH 
DRIVE 
DROP 
DROPPACK 
DUMPATT 
DUPL 

a 

ag om OS 
ERREXIT 


ERROR 
ERRS 
EXEC 
EXEC 
EXEC 
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type 


FIXED SIN 
UNSIGNED 


FIXED BIN 
FIXED BIN 


STRUCTURE 
STRUCTURE 
STRUCTURE 
CHARC2) 

STRUCTURE 
FIXED BIN 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
FIXED BIN 


FIXED BIN 
FIXED BIN 


BIT(64) 
BUILTIN 
STRUCTURE 
3I1TC36) 
BIT (36) 
BIT(36) 
BIT(36) 
BETC36) 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
BITC) 
LITERALLY 
ENTRY 


ENTRY 
FIXED BIN 
BIT(9) 
BITC9) 
BIT(9) 


attributes 


ALIGNED INT PARM PREC(35) REAL VARIABLE 
BIN INT MEMBER PREC(16) REAL UNAL 
VARIABLE 

ALIGNED AUTO INT PREC(35) REAL VARIABLE 
ALIGNED INT MEMBER PREC(35) REAL 
VARIABLE 

INT LIKE PARM UNAL VARIABLE 

INT LIKE PARM UNAL VARIABLE 

AUTO INT LIKE UNAL VARIABLE 

INT MEMBER NONVARYING UNAL VARIABLE 
AUTO INT UNAL VARIABLE 

ALIGNED AUTO INT PREC(35) REAL VARIABLE 


ALIGNED INT MEMBER PREC(C35) REAL 
VARIABLE 

ALIGNED INT MEMBER PREC(35) REAL 
VARTABLE 

ALIGNED INT MEMBER PREC(C35) REAL 
VARIABLE 

INT MEMBER NONVARYING UNAL VARIABLE 
INT 

ALIGNED BASED INT VARIABLE 

INT MEMBER NONVARYING UNAL VARIABLE 
INT MEMBER NONVARYING UNAL VARIABLE 
INT MEMBER NONVARYING UNAL VARIABLE 
INT MEMBER NONVARYING UNAL VARTABLE 
INT MEMBER NONVARYING UNAL VART ABLE 
CONSTANT INT 

CONSTANT INT 

CONSTANT INT 

CONSTANT INT 

CONSTANT INT 

CONSTANT INT 

ALIGNED AUTO INT NONVARYING VARIABLE 


CONSTANT INT 


CONSTANT INT 

ALIGNED AUTO INT PREC(35) REAL VARIABLE 
INT MEMBER NONVARYING UNAL VARIABLE 

INT MEMBER NONVARYING UNAL VARIABLE 

INT MEMBER NONVARYING UNAL VARIABLE 
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name 


EXEC 
EXEC 
FAIL 
FAIL 
FAIL 
FAILS 
FALSE 


FCB 
FFRN 


FFRN 


FFRN 


FILE 
RILGE 


PLGe 
FILEAD 
FILEP 


FIND 
FIXEDSBIN 
FLAG 
FORMAT 
FREECODE 
FREETRK 
FRN 
GETPACK 
GIVEN 
GLEN 
GOODATT 
GOODLABEL 
H 

H 

H 

H 

HA 
HANAME 
HASATT 
HBOUND 
HD 


HD 
HD 
HD 
HD 


HD 
HD 
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type 


BIT (9) 
BIT C9) 
LABEL 
LABEL 
LABEL 
FIXED BIN 
LITERALLY 


FILE 
UNSIGNED 


UNSIGNED 
UNSIGNED 


FILE 
FILE 


FILE 
ENTRY 
ENTRY 


FIXED BIN 
BUILTIN 
STRUCTURE 
ENTRY 
BIT(18) 
STRUCTURE 
BUILTIN 
ENTRY 
CHAR 
FIXED BIN 
ENTRY 
ENTRY 
FIXED BIN 
BITC1) 
FIXED BIN 
FIXED BIN 
STRUCTURE 
ENTRY 
BITC(1) 
BUILTIN 
UNSIGNED 


FIXED BIN 
FIXED BIN 
FIXED BIN 
UNSIGNED 


FIXED BIN 
UNSIGNED 


attributes 


INT MEMBER NONVARYING UNAL VARIABLE 

INT MEMBER NONVARYING UNAL VARIABLE 
CONSTANT INT 

CONSTANT INT 

CONSTANT INT 

ALIGNED AUTO INT PRECC35) REAL VARIABLE 


CONSTANT INT 

BIN INT MEMBER PREC(18) REAL UNAL 
VARIABLE 

BIN INT MEMBER PREC(18) REAL UNAL 
VARIABLE 

BIN INT MEMBER PREC(18) REAL UNAL 
VARIABLE 

ALIGNED INT PARM VARIABLE 

ALIGNED INT MEMBER VARIABLE 


ALIGNED INT PARM VARIABLE 
CONSTANT INT RETURNS 
CONSTANT INT 


ALIGNED INT PARM PREC(35) REAL VARIABLE 
INT 

INT MEMBER UNAL VARIABLE 

CONSTANT INT 


INIT INT MEMBER NONVARYING UNAL VARIABLE 


AUTO INT LIKE UNAL VARIABLE 

INT 

CONSTANT INT 

ALIGNED INT PARM VARIABLE VAR 

ALIGNED AUTO INT PREC(35) REAL VARIABLE 
CONSTANT INT RETURNS 

CONSTANT INT RETURNS 

ALIGNED AUTO INT PREC(35) REAL VARIABLE 
INT MEMBER NONVAPYING UNAL VARIABLE 
ALIGNED INT PARM PREC(35) REAL VARIABLE 
ALIGNED INT PARM PREC(35) REAL VARIABLE 
INT MEMBER UNAL VARIABLE 

CONSTANT INT RETURNS 

ALIGNED INT MEMBER NONVARYING VARIABLE 
INT 

BIN INT MEMBER PREC(8) REAL UNAL 
VARIABLE 

ALIGNED AUTO INT PREC(35) REAL VARIABLE 
ALIGNED AUTO INT PRECC35) REAL VARIABLE 
ALIGNED INT PARM PREC(35) REAL VARIABLE 
BIN INT MEMBER PREC(16) REAL UNAL 
VARIABLE 

ALIGNED INT PARM PREC(35) REAL VARIABLE 
BIN INT MEMBER PREC(16) REAL UNAL 
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Name 


Hb 


HD 


HD 
HD 


HD 


HD 
HD 


HD 


HD 


HD 


HD 


HD 
HD 


HD 
HD 


HD 


HD 


HD 
HD 


HD 

HEADS 
HFILE 
HFILENAME 


HH 
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Pm re Re he 


I 
IZIONTP 
ISIOTD 
IZIOTP 
ISTDCW 
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type 


FIXED BIN 
UNSIGNED 


FIXED BIN 
UNSIGNED 


UNSIGNED 


FIXED BIN 
UNSIGNED 


UNSIGNED 
UNSIGNED 
UNSIGNED 
UNSIGNED 


FIXED BIN 
UNSIGNED 


FIXED BIN 
UNSIGNED 


UNSIGNED 
UNSIGNED 


FIXED BIN 
UNSIGNED 


UNSIGNED 


LITERALLY 


FILE 
CHAR( 25) 
PICTURE 
FIXED BIN 
FIXED BIN 
FIXED BIN 
FIXED BIN 
FIXED BIN 
FIXED BIN 
FIXED BIN 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 


attributes 


VARIABLE 

ALIGNED AUTO INT PREC(35) REAL VARIABLE 
BIN INT MEMBER PREC(8) REAL UNAL 
VARIABLE 

ALIGNED INT PARM PREC (35) REAL VARIABLE 
BIN INT MEMBER PREC(C8) REAL UNAL 
VARIABLE 

BIN INT MEMBER PRECC8) REAL UNAL 
VARIABLE 

ALIGNED AUTO INT PREC(C35) REAL VARIABLE 
BIN INT MEMBER PREC(8) REAL UNAL 
VARTABLE 

BIN INT MEMBER PREC(8) REAL JUNAL 
VARIABLE 

BIN INT MEMBER PRECC8) REAL UNAL 
VARIABLE 

BIN INT MEMBER PREC(8) REAL UNAL 
VARIABLE 

BIN INT MEMBER PREC(8) REAL UNAL 
VARIABLE 

ALIGNED AUTO INT PREC(35) REAL VARIABLE 
BIN INT MEMBER PREC(8) REAL UNAL 
VARIABLE 

ALIGNED AUTO INT PRECC35) REAL VARIABLE 
BIN INT MEMBER PREC(8) REAL UNAL 
VARIABLE 

BIN INT MEMBER PREC(8) REAL UNAL 
VARIABLE 

BIN INT MEMBER PREC(8) REAL UNAL 
VARIABLE 

ALIGNED AUTO INT PRECC35) REAL VARIABLE 
BIN INT MEMBER PRECC8) REAL UNAL 
VARIABLE 

BIN INT MEMBER PREC(8) REAL UNAL 
VARIABLE 


CONSTANT INT 


INIT INT NONVARYING STATIC UNAL. VARIABLE 


INT MEMBER UNAL VARIABLE 


ALIGNED 
ALIGNED 
ALIGNED 
ALIGNED 
ALIGNED 
ALIGNED 
ALIGNED 


AUTO INT 
AUTO INT 
AUTO INT 
INT PARM 
INT PARM 
AUTO INT 
AUTO INT 


PREC (35) 
PREC (35) 
PREC (35) 
PREE(35) 
PREC (35) 
PREC(35) 
PREC(35) 


REAL 
REAL 
REAL 
REAL 
REAL 
REAL 
REAL 


VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
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name 


IDATE 
INDEFINITELY 
INDEX 
INIT 
IOTD 
ISZ 

L 

L 

1. 
LABEL 
LBOUND 
LENGTH 


LE TERS 
LINE 
LINE 
LINE 
LINE 
LOC 

LOC 


LOC 


LOC 
LOGRECS 


LOGRECS 


LOOKUP 
M 

M 
MAJOR 


MAJOR 
MAJOR 
MAJOR 
MAJOR 


MAKEADDRESS 
MAKEPATTERN 
MATCH 

MBZ 

MBZ 

MBZ 

MBZ 

MBZ 

MBZ 

MBZ 

MBZ 


Disk Pack Formatter 


type 


BIT(36) 
LITERALLY 
BUILTIN 
ENTRY 
ENTRY 
BIT(4) 
CHAR 
FIXED BIN 
FIXED BIN 
STRUCTURE 
BUILTIN 
BUILTIN 


CHAR( 53) 
CHAR 

CHAR 

CHAR 

CHAR 
FIXED BIN 
FIXED BIN 


FIXED BIN 


FIXED BIN 
FIXED BIN 


FIXED BIN 


ENTRY 
CHAR (2) 
FIXED BIN 
UNSIGNED 


UNSIGNED 
UNSIGNED 
UNSIGNED 
UNSIGNED 


ENTRY 
ENTRY 
FIXED BIN 
BIT(4) 
BIT(4) 
BIT(4) 
BITC5) 
BIT (4) 
BIT(4) 
BIT(4) 
BIT (4) 


attribut 


es 


INT MEMBER NONVARYING UNAL VARIABLE 


INT 


CONSTANT INT 
CONSTANT INT RETURNS 
INT MEMBER NONVARYING UNAL VARIABLE 
ALIGNED INT PARM VARIABLE VAR 


ALIGNED 


INT PAR™ 


PREC (35) 


ALIGNED AUTO INT PREC(35) 
BASED INT UNAL VARIABLE 


INT 
INT 


INIT INT NONVARYING STATIC UNAL VARIABLE 


ALIGNED 
ALIGNED 
ALIGNED 
ALIGNED 
ALIGNED 
ALIGNED 
VARIABLE 


AUTO INT 
AUTO INT 
AUTO INT 
AUTO INT 
INT PARM 


VARIABLE 
VARIABLE 
VARIABLE 
VARIABLE 
PREC( 35) 


REAL VARIABLE 
REAL VARIABLE 


VAR 
VAR 
VAR 
VAR 
REAL. VARIABLE 


INT MEMBER PREC(C35) REAL 


ALIGNED AUTO INT PREC(35) 


ALIGNED 


INT PARM 


PREC(35) 


REAL VARIABLE 


REAL VARIABLE 


ALIGNED INT MEMBER PREC(35) REAL 


VARIABLE 


ALIGNED INIT INT MEMBER PRECC(35) REAL 


VARIABLE 


CONSTANT 


ALIGNED 


INT RETURNS 
INT MEMBER NONVARYING UNAL VARIABLE 


INT PARM 


PREC (35) 


BIN INT MEMBER PRECC4G) REA 


VARIABLE 


BIN INT MEMBER PREC(4) REA 


VARIABLE 


BIN INT MEMBER PREC(4&) REA 


VARIABLE 


REAL VARIABLE 
L UNAL 


L UNAL 


L UNAL 


BIN INT MEMBER PREC(4) REAL UNAL 


VARIABLE 


BIN INT MEMBER PREC(4) REA 


VARTABLE 


CONSTANT 


CONSTANT 


INT RETURNS 


INT 


ALIGNED AUTO INT PREC(35) 


INT MEMBER 
INT MEMBER 
INT MEMBER 
INT MEMBER 
INT MEMBER 
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INT MEMBER 
INT MEMBER 


NONVARYING UNAL 
NONVARYING UNAL 
NONVARYING UNAL 
NONVARYING UNAL 
NONVARYING UNAL 
NONVARYING UNAL 
NONVARYING UNAL 
NONVARYING UNAL 


L UNAL 


REAL VARIABLE 
VARIABLE 
VART ABLE 
VARTABLE 
VARIABLE 
VARTABLE 
VARIABLE 
VARIABLE 
VARIABLE 
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MAIN 02/04/82 10:05=355 Disk Pack Formatter PAGE 66 @ 
Line name type attributes references by Line 
695 MBZ BIT (4) INT MEMBER NONVARYING UNAL VARIABLE sd 
165 MBZO BIT (4) INT MEMBER NONVARYING UNAL VARIABLE 
173 MBZ1 BITC(2) INT MEMBER NONVARYING UNAL VARIABLE e 
175 MBZ2 BIT (12) INT MEMBER NONVARYING UNAL VARIABLE 
1327 MESS CHAR ALIGNED INT. PARM VARIABLE VAR 1328 1326 
1318 MESS CHAR ALIGNED INT PARM VARIABLE VAR 1320 ye os ag e 
277 MINOR BIT(6) INT MEMBER NONVARYING UNAL VARIABLE 
1133 MINOR BIT(6) INT MEMBER NONVARYING UNAL VARIABLE 1153 1159 1161 1169 
252 MINOR BIT(6) INT MEMBER NONVARYING UNAL VARIABLE @ 
706 MINOR BIT(6) INT MEMBER NONVARYING UNAL VARIABLE 
147 MINOR BIT(6) INT MEMBER NONVARYING UNAL VARIABLE 
739 MISC FIXED 3BIN INT MEMBER PREC(35) REAL UNAL VARIA3BLE 749 760 1800 r 
MME BUILTIN INT 113 261 
44) MMESDRIVE LITERALLY 455 
248 MMESDRIVE LITERALLY 261 & 
464 MMESSETP LITERALLY 475 
109 MMEOQ ENTRY CONSTANT INT 455 475 
MOD BUILTIN INT 502 666 667 819 @ 
274 MODE FIXED BIN ALIGNED INT PARM PREC(35) REAL VARIABLE 279 ers 
245 MODE FIXED BIN ALIGNED INT PARM PREC(35) REAL VARIABLE 259 243 
MORE BUILTIN INT 1518 @ 
799 N STRUCTURE INT STATIC UNAL VARTABLE 801 
1741 NAME CHAR( *) INT NONVARYING PARM UNAL VARIABLE 1758 1739 
137 NAME BIT(72) INT MEMBER NONVARYING UNAL VARIABLE 758 1798 1798 @ 
4023 NAME CHAR(6) INIT INT MEMBER NONVARYING UNAL VARIABLE $735 
303 NAME STRUCTURE ALIGNED INT MEMBER VARIABLE 
339 NAME CHAR(8) ALIGNED AUTO INT VARIABLE VAR 50 358 365 370 370 371 371 e 
336 NAMESTR CHAR ALIGNED INT PARM VARIABLE VAR 348 348 350 335 
754 NEWLABEL ENTRY CONSTANT INT 1828 
1928 NOPROMPT ENTRY CONSTANT EXT 1939 @ 
3 NOT LITERALLY 283 400 401 683 713 772 854 682 
8&8 958 1106 1109 1155 1281 1387 145% 
1912 & 
NULLF BUILTIN INT 321 429 433 1930 
736 NUMB BIT(36) INT MEMBER NONVARYING UNAL VARIABLE 167 1797 1861 
OCTAL BUILTIN INT AS 11715 286 365 T21 1181 1800 é 
706 OFF BIT(1) INT MEMBER NONVARYING UNAL VARIABLE 713 
252 OFF BITC1) INT MEMBER NONVARYING UNAL VARIABLE 
LE5S OFF BIT(1) INT MEMBER NONVARYING UNAL VART ABLE 1147 @ 
145 OFF BIT (1) INT MEMBER NONVARYING UNAL VARIABLE 
er? OFF BIT (1) INT MEMBER NONVARYING UNAL VARIABLE 283 
eagle OFFSET UNSIGNED BIN INT MEMBER PREC(18) REAL UNAL @ 
VARIABLE 
695 OFFSET UNSIGNED BIN INT MEMBER PREC(18) REAL UNAL 
VARIABLE e 
246 OFFSET UNSIGNED BIN INT MEMBER PREC(18) REAL UNAL 
VARIABLE 
224 OFFSET UNSIGNED BIN INT MEMBER PREC(18). REAL UNAL 226 & 
VARIABLE 
1083 OFFSET UNSIGNED BIN INT MEMBER PREC(18) REAL UNAL 
VARIABLE € 
189 OFFSET UNSIGNED BIN INT MEMBER PREC(18) REAL UNAL 
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name 


OFFSET 


OP 
OPTADDRESS 
OPTDEV 

OR 


PACK 
PACKCHECK 


PACKFAT 
PATTERN 


PERCAT 
PERCATFRN 
PIO 

P10O0 


PIOSTATUS 
PLOC 

PLOC 

PLOC 

PLOC 
PREFIX 
PROMPT 
PROMPT 
QADD 


QADD 


QADD 


QADD 


QADD 


DAD Az 


ROCOUNT 
RODATA 
RA 

RA 

RA 


RANGE 


Disk Pack Formatter 


type 


UNSIGNED 


FIXED BIN 
ENTRY 
ENTRY 
LITERALLY 


STRUCTURE 
ENTRY 


ENTRY 
CHAR(1) 


ae ass 
FIXED BIN 
ENTRY 
ENTRY 


STRUCTURE 
FIXED BIN 
FIXED BIN 
FIXED SIN 
FIXED BIN 
CHAR(C6) 
ENTRY 
CHAR(*) 
UNSIGNED 


UNSIGNED 
UNSIGNED 
UNSIGNED 
UNSIGNED 
CHAR 
FIXED BIN 
CHAR 
FIXED BIN 
STRUCTURE 
STRUCTURE 
FIXED BIN 
FIXED BIN 
FIXED BIN 


FIXED BIN 


attributes 


VARIABLE 

BIN INT MEMBER PREC(18) REAL UNAL 
VARTABLE 

ALIGNED INT PARM PRECC(35) REAL VARIABLE 
CONSTANT INT 

CONSTANT INT 


ALIGNED AUTO INT VARIABLE 
CONSTANT INT 


CONSTANT EXT OPTIONS 

DIM(O02:255) INIT INT NONVARYING STATIC 
UNAL VARTASLE 

CONSTANT INT 

ALIGNED AUTO INT PREC(35) REAL VARIABLE 
CONSTANT INT RETURNS 

CONSTANT INT 


BASED INT UNAL VARTABLE 

ALIGNED AUTO INT PREC(35) REAL VARIABLE 
ALIGNED AUTO INT PREC(35) REAL VARIABLE 
ALIGNED AUTO INT PREC(35) REAL VARIABLE 
ALIGNED AUTO INT PRECC35) REAL VARIABLE 
INT MEMBER NONVARYING UNAL VARIABLE 
CONSTANT INT RETURNS 

INT NONVARYING PARM UNAL VARIABLE 

BIN INT MEMBER PREC(6) REAL UNAL 
VARTABLE 

BIN INT MEMBER PREC(6) REAL UNAL 
VARIABLE 

BIN INT MEMBER PREC(C6) REAL UNAL 
VARIABLE 

BIN INT MEMBER PREC(6) REAL UNAL 
VARIABLE 

BIN INT MEMBER PREC(C6) REAL UNAL 
VARIABLE 

ALIGNED AUTO INT VARIABLE VAR 

ALIGNED AUTO INT PRECC(35) REAL VARIABLE 
ALIGNED AUTO INT VARIABLE VAR 

ALIGNED DIM(1:12) INT PARM PREC (35) REAL 
VARIABLE 

INT MEMBER UNAL VARIABLE 

INT MEMBER UNAL VARIABLE 

ALIGNED INT MEMBER PREC(35) REAL 
VARIABLE 

ALIGNED INT MEMBER PREC(35) REAL 
VARIABLE 

ALIGNED INT MEMBER PREC(35) REAL 
VARIABLE 

ALIGNED INT MEMBER PRECC35) REAL 
VARIABLE 


references 


1138 
1581 
1594 
281 
712 


1548 
1825 
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1535 
359 
279 
724 

1681 
243 
Cee 
708 

1708 

1901 
371 
979 

1344 


546 
1191 
1434 
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454 


473 


386 


1130 
65:3 
1609 
281 
878 


1561 
1856 


1932 
1937 
710 
1017 
1776 
222 
725 
711 
17 Se 
1909 
373 
989 
1338 


1713 


by line 
1890 

1705 1789 
2 81 348 
983 983 
1579 1619 
1889 

1937 

1138 

1027 1037 
1905 1907 
277 706 
380 
1283 

548 

115 109 
1764 
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1632 


1066 
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1854 
1467 
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1070 
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name 


RDATE 
READTH 


READTRACKO 


REC 


REC 


RECSIZE 
REFORMAT 
REG 

REG 

REG 

REGS 


REGS 


REGS 


RELABEL 
RESTART 
RESULT 
RETRY 
RQ 


RQ 


Se 

SAME 
SEARCH 
SEARCHATT 
SECT 

no on ae 

SECT 

SECT 

SECT 
SECTORS 
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type 


BIT(36) 
ENTRY 
ENTRY 
CHAR(4) 


UNSIGNED 


LITERALLY 
ENTRY 

STRUCTURE 
STRUCTURE 
STRUCTURE 
FIXED BIN 


FIXED BIN 


FIXED BIN 


ENTRY 
LABEL 
LITERALLY 
FIXED BIN 
FIXED BIN 


FIXED BIN 


FIXED BIN 


STRUCTURE 
FIXED BIN 
FIXED BIN 
CHAR 

CHAR 
CHAR(6) 
FIXED BIN 


STRUCTURE 
STRUCTURE 
STRUCTURE 
CHAR( 1) 
FIXED BIN 
FIXED BIN 
ENTRY 
BUILTIN 
ENTRY 
FIXED BIN 
FIXED 31N 
FIXED BIN 
FIXED BIN 
FIXED BIN 
LITERALLY 


attributes 


INT MEMBER NONVARYING UNAL VARIABLE 
CONSTANT INT 

CONSTANT INT RETURNS 

DIM(0O:63) INT MEMBER NONVARYING UNAL 
VARIABLE 

BIN INT MEMBER PRECC8) REAL JNAL 
VARIABLE 


CONSTANT INT 

ALIGNED AUTO INT VARIABLE 

ALIGNED AUTO INT VARIABLE 

ALIGNED AUTO INT VARIABLE 

ALIGNED BASED DIM(1212) INT PRECC35) 
REAL VARIABLE 

ALIGNED BASED DIM(1:12) INT PREC(35) 
REAL VARIABLE 

ALIGNED BASED DIM(1312) INT PRECC35) 
REAL VARIABLE 

CONSTANT INT 

CONSTANT INT 


ALIGNED AUTO INT PRECC(35) REAL VARIABLE 
ALIGNED INT MEMBER PRECC35) REAL 
VARIABLE 

ALIGNED INT MEMBER PREC(35) REAL 
VARIABLE 

ALIGNED INT MEMBER PREC(35) REAL 
VARIABLE 

AUTO INT LIKE UNAL VARIABLE 

ALIGNED INT PARM PRECC(35) REAL VARIABLE 
ALIGNED INT PARM PREC(35) REAL VARIABLE 
ALIGNED INT PARM VARIABLE VAR 

ALIGNED INT PARM VARIABLE VAR 

INT NONVARYING PARM UNAL VARIABLE 
ALIGNED AUTO INT PREC(35) REAL VARIABLE 


AUTO INT LIKE UNAL VARIABLE 
AUTO INT LIKE UNAL VARIABLE 
AUTO INT LIKE UNAL VARIABLE 


INIT INT MEMBER NONVARYING UNAL VARIABLE 


ALIGNED AUTO INT PRECC(35) REAL VARIABLE 
ALIGNED AUTO INT PRECC(35) REAL VARIABLE 
CONSTANT INT RETURNS 

INT 

CONSTANT INT RETURNS 

ALIGNED AUTO INT PREC(C35) REAL VARIABLE 
ALIGNED INT PARM PREC(35) REAL VARIABLE 
ALIGNED AUTO INT PREC(35) REAL VARIABLE 
ALIGNED AUTO INT PREC(35) REAL VARIABLE 
ALIGNED INT PARM PREC(35) REAL VARIABLE 
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1009 

1038 
263 
710 
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1751 
1307 
901 
1486 
1454 
1605 
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1082 
1868 


1871 


652 


Se 
491 
496 
521 
946 
988 

1016 

1038 
265 


286 


662 
672 
e353 
1434 
914 
1487 
1452 


675 
488 
1008 


1188 


1919 


653 


1181 
483 


ae: 
547 


1018 


670 
678 


Teo? 


679 


491 
1082 


1188 


654 


513 
347 


1018 


671 
679 


1912 


682 


665 
17191 


PAGE 


948 


547 


1026 


674 


682 
666 
1709 


68 


541 


1028 


678 


650 
666 


1028 


678 


1035: 


a er ee er ee re re ee ee 2 ee 2 ee ee ee de.) 


: 
i 
| 
4 
N 
! 
4 
: 
i 
i 
; 
a 
j 
4 
Ns 
a 
a 
i 
3 
q 
d 
e 
: 
4 
4 
3 
i 
4 
j 
j 
i 
4 
4 
1 


MAIN 
Line 
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306 
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tw 
© 
omnes) 


-NN 
OW 
LAN 


277 
1133 


— 
© 
WW 


104 


790 
098 
950 
923 
912 


e @ @ ee ee eeeeeee#%eeee ®@ a 


TO AAT AO 


02/04/82 


name 


SEEK 
SEEKAD 
SEQNO 
SHAPE 
SHL 
SHR 
SITE 
ST 


STATUS 


STATUS 


STATUS 


STEP 
STR 


STRING 


STwi 
SUBST R 


SUFFIX 
SW 
SwW1 
Sw 
Swe 
SW2 
SWe 
SWS 
SwS 
SWS 
SYNC 
SYNC 
SYNC 
SYNC 
SYNC 
SYSIN 
SYSPRINT 


oe ie ee te 
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Disk Pack Formatter 


type 


FIXED BIN 
ENTRY 
BIT(36) 
STRUCTURE 
BUILTIN 
BUILTIN 
BIT (36) 
BIT (36) 


UNSIGNED 
UNSIGNED 
UNSIGNED 


FIXED BIN 
CHAR 


BUILTIN 


BUILTIN 
BUILTIN 


CHARC 2) 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
LITERALLY 
STRUCTURE 
STRUCTURE 
STRUCTURE 
BITC1) 
BIT(1) 
BIT(1) 
BIT (1) 
BIT(1) 

ee By Be 

cae GOs 


STRUCTURE 
STRUCTURE 
STRUCTURE 
STRUCTURE 
STRUCTURE 


attributes 


ALIGNED AUTO INT PREC(35) REAL VARIABLE 
CONSTANT INT RETURNS 

INT MEMBER NONVARYING UNAL VARIABLE 
ALIGNED INT MEMBER VARIABLE 

INT 

INT 

INT MEMBER NONVARYING UNAL VARIABLE 
AUTO DIM(0:3) INT NONVARYING UNAL 
VARIABLE 

BIN INT MEMBER PREC(9) REAL UNAL 
VARIABLE 

BIN INT MEMBER PREC(C9) REAL UNAL 
VARIABLE 

BIN INT MEMBER PREC(9) REAL UNAL 
VARIABLE 

ALIGNED AUTO INT PREC(35) REAL VARIABLE 
ALIGNED INT PARM VARIABLE VAR 


INT 


INT 
INT 


INT MEMBER NONVARYING UNAL VARIABLE 


ALIGNED INT MEMBER VARIABLE 

ALIGNED INT MEMBER VARIABLE 

ALIGNED INT MEMBER VARIABLE 

INT MEMBER NONVARYING UNAL VARIABLE 
INT MEMBER NONVARYING UNAL VARIABLE 
INT MEMBER NONVARYING UNAL VARIABLE 
INT MEMBER NONVARYING UNAL VARIABLE 
INT MEMBER NONVARYING UNAL VARIABLE 
CONSTANT EXT 

CONSTANT EXT 


AUTO INT LIKE UNAL VARIABLE 
INT LIKE PARM UNAL VARIABLE 
AUTO INT LIKE UNAL VARIABLE 
INT LIKE PARM UNAL VARIABLE 
INT LIKE PARM UNAL VARIABLE. 


references by line 


664 
501 
770 


1681 
114 
fot 
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1709 
661 
650 
265 
856 
955 

1181 
364 
115 
632 

1181 

1798 
370 


263 


1939 
1866 
1725 
1343 
861 
792 
797 
953 
928 
915 


665 


1803 


1796 
LIS 


1728 
664 


286 
856 
955 
1192 
365 
286 
632 
T2837 
1798 
767 


1345 
1860 
1722 
1319 

860 


95D 
929 
9171 


666 


1863 


1750 
664 


392 
859 
1007 
1908 


370 
670 
1283 


1830 
1647 
1126 
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922 


567 


1796 
6790 


579 
859 
1056 
1908 


371 
674 
1291 


1794 
1640 
1121 
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e MAIN 02/04/82 Disk Pack Formatter PAGE 70 ) 
line name type attributes references by line 
® 938 T STRUCTURE INT LIKE PARM UNAL VARIABLE 939 OST e 
897 T STRUCTURE INT LIKE PARM UNAL VARIABLE 901 902 903 905 895 
@ 808 T FIXED BIN ALIGNED AUTO INT PRECC(35) REAL VARIABLE 809 810 810 e 
1376 TABLE CHAR( *) DIM(C*) INT NONVARYING PARM UNAL VARIABLE 1388 1388 1393 1393 1394 1398 1409 1409 
1410 1411 1371 
e S17 TOCYLS LITERALLY 585 r 
1078 TEST ENTRY CONSTANT INT RETURNS 1612 
1130 TESTOP ENTRY CONSTANT INT RETURNS 1106 1109 
@ dead TH STRUCTURE AUTO INT UNAL VARIABLE 189 189 1007 1645 @ 
189 THDCW STRUCTURE AUTO INT LIKE UNAL VARIABLE 189 1017 1027 1037 1066 1070 1635 1663 
1682 1776 1905 1907 1914 1917 
e 163 TI BIT(2) INT MEMBER NONVARYING UNAL VARIABLE 1011 1621 1031 1065 1069 1639 1670 1681 e 
1716 1718 1721 1768 1906 1915 . 
1740 TI BITC2) INT NONVARYING PARM UNAL VARIABLE 1768 1739 
@ 169 TI BIT(2) INT MEMBER NONVARYING UNAL VARIABLE $021.1 tU24 1031 1065 1069 1643 1670 1905. ) 
1915 
185 TISBA LITERALLY 1069 1721 1915 
@ 186 TIBBN LITERALLY 1065 1906 e 
184 TISGA LITERALLY 1021 1718 1719 
183 TISGP LITERALLY 1011 1031 1716 1717 
@ 1384 TLEN FIXED BIN ALIGNED AUTO INT PREC(35) REAL VARIABLE 1388 1392 @ 
(8? TRACK ENTRY CONSTANT INT RETURNS 194 810 840 985 1119 1641 1724 
692 TRACKO STRUCTURE AUTO DIMC0:3) INT UNAL VARIABLE 695 695 699 733 822 
@ 695 TRACKODCW STRUCTURE AUTO INT LIKE UNAL VARIABLE 695 710 724 @ 
806 TRACK AD ENTRY CONSTANT INT RETURNS 1756 1894 
780 TRACKCODE STRUCTURE BASED INT UNAL VARIABLE 787 790 198 805 823 824 E29 B97. 
e 912 923 938 947 950 1951 1052 1885 e 
797 TRACK NAME ENTRY CONSTANT INT RETURNS 194 860 860 861 939 1119 1641 172% 
1756 
e TRANSLATE BUILTIN INT 558 @ 
108) TRIALS LITERALLY 1092 EOS 
1886 TRK STRUCTURE AUTO INT LIKE UNAL VARIABLE 1894 1897 1913 
& 1051 TRK STRUCTURE AUTO INT LIKE UNAL VARIABLE 1055 1056 1063 @ 
947 TRK STRUCTURE INT LIKE PARM UNAL VARIABLE 953 946 
823 TRK STRUCTURE INT LIKE MEMBER UNAL VARIABLE 840 856 859 860 861 915 926 923 
e 930 932 955 O35 1908 1913 @ 
5 TRUE LITERALLY 400 683 i ha 854 B82 958 314.55 1281 
1387 
e 1089 TRY FIXED BIN ALIGNED AUTO INT PRECC(35) REAL VARIABLE 1105 e 
407 TYPE STRUCTURE ALIGNED DIM(1:2) INT STATIC VARIABLE 373 379 
738 TYPE BIT (36) INT MEMBER NONVARYING UNAL VARIABLE 748 759 1799 
@ 1382 UNIQUE BIT¢(1) ALIGNED AUTO INT NONVARYING VARIABLE 1387 1396 1405 @ 
UNSPEC BUILTIN INT 263 699 
555 UPPER ENTRY CONSTANT INT RETURNS 1297 1475 
@ 308 USEC YLS FIXED BIN ALIGNED INT MEMBER PRECC(35) REAL 384 385 838 838 875 876 899 90>. e 
VARIABLE 925 983 10712 1022 1022 1032. 1099 1895 
414 USECYLS FIXED BIN ALIGNED INIT INT MEMBER PRECC(35) REAL 384 
@ VARIABLE eS 
VERIFY BUILTIN INT 1298 1303 1435 1467 
WADDR BUILTIN INT 189 255 695 1096 
& WLEN BUILTIN INT 189 695 1096 e 
719 WRITETRACKO ENTRY CONSTANT INT 771 1616 
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line name type attributes 
e 2 x0 FIXED BIN ALIGNED INT 
| VARIABLE 
@ 2 X0 FIXED BIN ALIGNED INT 
VARIABLE 
2 XQ FIXED BIN ALIGNED INT 
) VARIABLE 
2 X 4 FIXED BIN ALIGNED INT 
VARIABLE 
e 2 X1 FIXED BIN ALIGNED INT 
VARIABLE 
2 X1 FIXED BIN ALIGNED INT 
@ VARIABLE 
. 2 X2 FIXED BIN ALIGNED INT 
, VARIABLE 
| e 2 X2 FIXED 3IN ALIGNED INT 
! VARIABLE 
| 2 Xe FIXED BIN ALIGNED INT 
@ VARIABLE 
| es KS FIXED BIN ALIGNED INT 
VARIABLE 
) 2 x5 FIXED BIN ALIGNED INT 
VARIABLE 
2 x3 FIXED SIN ALIGNED INT 
@ VARIABLE 
2 xX4 FIXED SIN ALIGNED INT 
VARIABLE 
@ 2 X4 FIXED BIN ALIGNED INT 
| VARIABLE 
2 X4 FIXED BIN ALIGNED INT 
e VARIABLE 
2 xX 5 FIXED BIN ALIGNED INT 
VARIABLE 
 ) 2 X5 FIXED BIN ALIGNED INT 
VARIABLE 
2 X5 FIXED BIN ALIGNED INT 
@ VARTABLE 
Ya x6 FIXED 31IN ALIGNED INT 
VARIABLE 
e 2 X6 FIXED BIN ALIGNED INT 
VARIABLE 
2 X6 FIXED BIN ALIGNED INT 
@ VARIABLE 
2 Ue FIXED BIN ALIGNED INT 
VARTABLE 
@ 2 X7 FIXED BIN ALIGNED INT 
VARIABLE 
2 X7 FIXED BIN ALIGNED INT 
@ VARIABLE 
617 Y CHAR(2). INT MEMBER 
162 Z BIT(1) INT MEMBER 
e 617 _1 CHAR (1) INT MEMBER 
617 _2 CHAR(1) INT MEMBER 
€ 


MEMBER PREC(35) 


MEMBER PREC(35) 


MEMBER PREC(35) 


REAL 


REAL 


REAL 


MEMBER PREC(35) REAL 


MEMBER PREC(35) 


MEMBER PREC(35) 


MEMBER PREC(35) 


MEMBER PREC(35) 


MEMBER PREC (35) 


MEMBER PREC(35) 


MEMBER PREC(35) 


MEMBER PREC(35) 


MEMBER PREC(35) 


MEMBER PREC(35) 


MEMBER PREC(35) 


MEMBER PREC(35) 


MEMBER PREC(35) 


MEMBER PREC(C35) 


REAL 


REAL 


REAL 


REAL 


REAL 


REAL 


REAL 


REAL 


REAL 


REAL 


REAL 


REAL 


REAL 


REAL 


MEMBER PREC(35) REAL 


MEMBER PREC(35) 


REAL 


MEMBER PREC(C35). REAL 


MEMBER PREC(35) 


MEMBER PREC(35) 


MEMBER PREC(35) 


NONVARYING 
NONVARYING 
NONVARYING 


NONVARYING 


UN AL 
UNAL 
UNAL 
UNAL 


REAL 


REAL 


REAL 


VARIABLE 
VARTABLE 
VARIABLE 
VARIABLE. 
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254 


471 
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1884 
1553 
1545 
1531 
1821 
1509 
1787 
1699 
1591 
1851 
1577 
1607 
1664 
1630 
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name 
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ALTERNATE 


_bIS 
_ENA 
_EXI 
_FOR 
WHEL 
_LAB 
_MAP 
_PAC 
_REF 


_SET 
_TES 


_TI 
_TRA 


ABLE 
BLE 
T 
MAT 
P 

EL 


K 
ORMAT 


T 


CKHEADER 
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type 


ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 


attributes 


CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 
CONSTANT 


INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 
INT 


references by Line 


Seed 
1236 
1237 
1229 
1226 
1224 
1232 
1231 
1230 
1225 
1235 
1228 
1235 
1234 
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MAIN 02/04/82 


This procedure cefines the following external 


PACKFMT 


No external data were defined. 


The following external 


NOPROMPT 


The following external data declarations were 
SYSPRINT 


CMDERROR 


The following library 

wll 

eo RET 

2 ON 

2» CLOSE 

«DATE 

«BCNC 

»aPECHR 

«PEDYN 


10:05235 


entry points were referenced: 


SYSIN 


routines were referenced by the 


»TTY 
oFRN 
OPEN 
~SB2D 
wINDC2Z 


«PLCHR 


eGXDYN 


»PEBIT 


oMME 
eSASN 
STW) 
eo SASNN 
oGETS 
ePLDYN 
»CCND 
=a FSULSK 


Disk Pack formatter 


entry points: 


referenced: 


Object 
eOCTAL 
eLEN 
~PXDYN 
«SB3D 
~GEFIX 
~VERIF 
«PXCHR 
eFSLCL 


External References and 


code: 


Definitions 


2S8.3¢ 
2 eS ETS 
ePTSK1 
e TRANS 
oe oa 
eSRCH 
»GEBIT 
o FSLX 


eMVCNC 
eVARYC 
~LPAO 

COLES 
-INDCS3 
oPXFIX 
«MORE 
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MAIN 02/04/82 


There were no errors 
893 statements were compiled. 

length of the object code. 

of the static data. 


4885 is the 
e226 is the 


Length 


44K core used. 


DTSS PL1 version of 06/01/81. 


Warning: the 
ADDR 
HBOUND 
MORE 
STRING 
WADDR 


Warnings the 
LINE 


Warning: the 
TYPE 


The following blocks were defined: 


line type 


PROC 

PROC 
193 PROC 
220 PROC 
2435 PROC 
273 PROC 
321 PROC 
335 PROC 
355 BEGIN 
356 ON 
427 PROC 
445 PROC 
466 PROC 
483 PROC 
496 PROC 
518 PROC 
541 PROC 
555 PROC 
563 PROC 
588 PROC 
616 PROC 
624 PROC 
650 PROC 
659 ON 
699 PROC 
704 PROC 
719 PROC 
746 PROC 
754 PROC 


aT 


BYTE 


INDEX 
NULLF 


STwl 
WLEN 


following dcl*s were 


name 
PACKFMT 
MMEO 
HANAME 
TOTo. 

PIO 

PIOG 
PACKCHECK 
GETPACK 


DROPPACK 
DRIVE 
PLLER 
SEEKAD 
FILEAD 
DROP 
BREAK 
UPPER 
ACI 

BCI 
BDATE 
ADATE 
MAKEADDRESS 


CLEARTRACKO 
READTRACKQ 
WRITETRACKO 
GOODLABEL 
NEWLABEL 
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CHR 


Compilation 


in this external procedure. 


LBOUND 
OCTAL 
SUBSTR 


Stack frame size 


292 

18 
shares 
16 

30 
shares 
shares 


26 
shares 
24& 
shares 


46 
shares 
shares 
shares 
shares 
shares 


frame 


frame 
frame 
frame 


frame 
frame 


frame 


frame 
frame 
frame 


frame 
frame 


frame 
frame 
frame 
frame 
frame 


following declarations were not used: 


o f 


DA 


LENGTH 
SEARCH 


Report 


following names were not explicitly declared: 


TE 


TRANSLATE 


referenced but not assigned: 


FIXEDBIN 
MME 


SHL 
UNSPEC 


string descriptors 


block 


block 
block 
block 


block 
block 


block 


block 
block 
block 


block 
block 


block 
block 
block 
block 
block 


at 


1 

1 
line 

0 

8) 
Line 
Line 
Line 

0 

0 
Line 
Line 

0 
Line 

2 
Line 
Line 
Line 

0 

8) 
line 
Line 

0 

0 
Line 
Line 
Line 
Line 
Line 


1268 


1268 
1268 
1268 


1268 
1268 


496 


1268 
1268 
1268 


1268 
1268 


1268 
1268 
1268 
1268 
1268 


FRN 
MOD 
SHR 
VERIFY 
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Compilation Report 
ad 765 PROC RELABEI é ame at 1 2 6% e 
iE } L shares frame of block at line 1268 
787 PROC TRACK 16 0 
@ 797 PROC TRACKNAME 16 0 & 
806 PROC TRACKAD shares frame of block at Line 1268 
833 PROC CLEARATT shares frame of block at tine 1268 
e 849 PROC DUMPATT shares frame of block at line 1268 ®& 
871 PROC GOODATT shares frame of block at line 1268 
887 PROC ATTCHECK shares frame of block at line 1268 
e 896 PROC ADDATT shares frame of block at line 1268 ® 
91411 PROC ADDUSE shares frame of block at line 1268 
922 PROC ADDALT shares frame of block at line 1268 
e 937 PROC DUPL shares frame of block at line 1268 ) 
946 PROC SEARCHATT shares frame of block at line 1268 
969 PROC ASKOP shares frame of block at line 1268 
e 1000 PROC FORMAT shares frame of block at line 1268 @ 
1047 PROC REFORMAT shares frame of block at line 1268 
1078 PROC TEST 2610 1 
@ 17130 PROC TESTOP shares frame of block at line 1078 ) 
1187 PROC MAKEPATTERN shares frame of block at line 1078 
1220 PROC DISPATCH shares frame of block at line 1268 
e 1268 PROC COMMANDLOOP 448 31 & 
1277 ON 46 0 
1317 PROC ERROR 12 0) 
e 1326 PROC ERREXIT 12 0 @ 
1333 PROC PROMPT shares frame of block at line 1268 
1371 PROC LOOKUP shares frame of block at line 1268 
® 1421 PROC ARGLEFT Shares frame of block at line 1268 & 
1431 PROC ARG shares frame of block at Line 1268 
1442 PROC ARGCHECK shares frame of block at line 1268 
e 1452 PROC ARGADDRESS shares frame of block at line 1268 eS 
1463 PROC ARGTI shares frame of block at Line 1268 
1475 PROC ARGDEV shares frame of block at tine 1268 
@ 1482 PROC OPTADDRESS Shares frame of block at Line 1268 e 
1495 PROC OPTDEV shares frame of block at line 1268 
1509 PROC _HELP 12 1 
e 1514 ON 48 4 € 
1531 PROC EXIT shares frame of block at tine 1268 
1545 PROC ENABLE shares frame of block at line 1268 
) 15583 PROC DISABLE shares frame of block at line 1268 e@ 
1577 PROC SEF shares frame of block at line 1268 
1591 PROC _PACK shares frame of block at line 1268 
@ 1607 PROC Mie B oof shares frame of block at line 1268 e 
1630 PROC _TRACKHEADER shares frame of block at line 1268 
1664 PROC a Se | shares frame of block at line 1268 
) 1673 BEGIN shares frame of block at line 1268 @ 
1699 PROC MAP shares frame of block at Line 1268 
1739 PROC AREA shares frame of block at line 1268 
) 1763 PROC SAME shares frame of block at Line 1268 @ 
1775 PROC READTH . shares frame of block at line 1268 
1787 PROC LABEL shares frame of block at line 1268 
@ 1821 PROC FORMAT shares frame of block at Line 1268 e@ 
1851. PROC REFORMAT shares frame of block at line 1268 
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